Symbol Description Uses
CALC_SURF_DR Calculate the new surface level thickness. 5



File Line number Procedure Code
./model/src/calc_surf_dr.F 9 CALC_SURF_DR
      SUBROUTINE CALC_SURF_DR(etaFld,
./model/src/forward_step.F 864 FORWARD_STEP
        CALL CALC_SURF_DR(etaH, myTime, myIter, myThid )
./model/src/initialise_varia.F 249 INITIALISE_VARIA
        CALL CALC_SURF_DR(etaH, startTime, -1 , myThid )
./model/src/initialise_varia.F 290 INITIALISE_VARIA
          CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid )
./pkg/ecco/the_main_loop.F 891 THE_MAIN_LOOP
        CALL CALC_SURF_DR(etaH, myTime, myIter, myThid )