Symbol Description Uses
lastdiva 19


File Line number Procedure Code
./pkg/openad/the_model_main.F 304 THE_MODEL_MAIN 
      LOGICAL lastdiva
./pkg/openad/the_model_main.F 327 THE_MODEL_MAIN 
      lastdiva = .TRUE.
./pkg/openad/the_model_main.F 420 THE_MODEL_MAIN 
         CALL COST_FINAL_STORE ( myThid, lastdiva )
./pkg/openad/the_model_main.F 428 THE_MODEL_MAIN 
         CALL COST_FINAL_RESTORE ( myThid, lastdiva )
./pkg/openad/the_model_main.F 608 THE_MODEL_MAIN 
      IF ( lastdiva .AND. doMainPack ) THEN
./pkg/openad/the_model_main.F 624 THE_MODEL_MAIN 
      IF ( useGrdchk .AND. lastdiva ) THEN
./model/src/the_model_main.F 604 THE_MODEL_MAIN 
      LOGICAL lastdiva
./model/src/the_model_main.F 609 THE_MODEL_MAIN 
      lastdiva = .TRUE.
./model/src/the_model_main.F 680 THE_MODEL_MAIN 
         CALL COST_FINAL_STORE ( myThid, lastdiva )
./model/src/the_model_main.F 688 THE_MODEL_MAIN 
         CALL COST_FINAL_RESTORE ( myThid, lastdiva )
./model/src/the_model_main.F 715 THE_MODEL_MAIN 
      IF ( lastdiva .AND. doMainPack ) THEN
./model/src/the_model_main.F 731 THE_MODEL_MAIN 
      IF ( useGrdchk .AND. lastdiva ) THEN
./pkg/cost/cost_final_restore.F 35 COST_FINAL_RESTORE 
      logical lastdiva
./pkg/cost/cost_final_restore.F 59 COST_FINAL_RESTORE 
              lastdiva = .TRUE.
./pkg/cost/cost_final_restore.F 64 COST_FINAL_RESTORE 
              lastdiva = .FALSE.
./pkg/cost/cost_final_restore.F 9 COST_FINAL_RESTORE 
      subroutine COST_FINAL_RESTORE ( mythid, lastdiva )
./pkg/cost/cost_final_store.F 35 COST_FINAL_STORE 
      logical lastdiva
./pkg/cost/cost_final_store.F 44 COST_FINAL_STORE 
      lastdiva = .FALSE.
./pkg/cost/cost_final_store.F 9 COST_FINAL_STORE 
      subroutine COST_FINAL_STORE ( mythid, lastdiva )