Symbol Description Uses
lastdiva 19


File Line number Procedure Code
./pkg/openad/the_model_main.F 301 THE_MODEL_MAIN 
      LOGICAL lastdiva
./pkg/openad/the_model_main.F 324 THE_MODEL_MAIN 
      lastdiva = .TRUE.
./pkg/openad/the_model_main.F 413 THE_MODEL_MAIN 
         CALL COST_FINAL_STORE ( myThid, lastdiva )
./pkg/openad/the_model_main.F 421 THE_MODEL_MAIN 
         CALL COST_FINAL_RESTORE ( myThid, lastdiva )
./pkg/openad/the_model_main.F 597 THE_MODEL_MAIN 
      IF ( lastdiva .AND. doMainPack ) THEN
./pkg/openad/the_model_main.F 611 THE_MODEL_MAIN 
      IF ( useGrdchk .AND. lastdiva ) THEN
./model/src/the_model_main.F 299 THE_MODEL_MAIN 
      LOGICAL lastdiva
./model/src/the_model_main.F 304 THE_MODEL_MAIN 
      lastdiva = .TRUE.
./model/src/the_model_main.F 375 THE_MODEL_MAIN 
         CALL COST_FINAL_STORE ( myThid, lastdiva )
./model/src/the_model_main.F 383 THE_MODEL_MAIN 
         CALL COST_FINAL_RESTORE ( myThid, lastdiva )
./model/src/the_model_main.F 408 THE_MODEL_MAIN 
      IF ( lastdiva .AND. doMainPack ) THEN
./model/src/the_model_main.F 422 THE_MODEL_MAIN 
      IF ( useGrdchk .AND. lastdiva ) THEN
./pkg/cost/cost_final_restore.F 33 COST_FINAL_RESTORE 
      logical lastdiva
./pkg/cost/cost_final_restore.F 57 COST_FINAL_RESTORE 
              lastdiva = .TRUE.
./pkg/cost/cost_final_restore.F 62 COST_FINAL_RESTORE 
              lastdiva = .FALSE.
./pkg/cost/cost_final_restore.F 7 COST_FINAL_RESTORE 
      subroutine COST_FINAL_RESTORE ( mythid, lastdiva )
./pkg/cost/cost_final_store.F 33 COST_FINAL_STORE 
      logical lastdiva
./pkg/cost/cost_final_store.F 42 COST_FINAL_STORE 
      lastdiva = .FALSE.
./pkg/cost/cost_final_store.F 7 COST_FINAL_STORE 
      subroutine COST_FINAL_STORE ( mythid, lastdiva )