New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6073 for branches/2015/dev_merge_2015/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2015-12-16T17:37:14+01:00 (9 years ago)
Author:
timgraham
Message:

Fixed a load of references to fse3t etc.

Location:
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DIA/diacfl.F90

    r6069 r6073  
    8383 
    8484                  ! Courant number for z-direction (vertical current) 
    85                   zcw_cfl(ji,jj,jk) = ABS(wn(ji,jj,jk))*dt/fse3w_n(ji,jj,jk) 
     85                  zcw_cfl(ji,jj,jk) = ABS(wn(ji,jj,jk))*dt/e3w_n(ji,jj,jk) 
    8686               END DO 
    8787            END DO          

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90

    r6060 r6073  
    8080            DO ji = fs_2, jpi   ! vector opt. 
    8181               !                                      ! ahm * e3 * curl  (computed from 1 to jpim1/jpjm1) 
    82 !!gm open question here : fse3f  at before or now ?    probably now... 
     82!!gm open question here : e3f  at before or now ?    probably now... 
    8383!!gm note that ahmf has already been multiplied by fmask 
    8484               zcur(ji-1,jj-1) = ahmf(ji-1,jj-1,jk) * e3f_n(ji-1,jj-1,jk) * r1_e1e2f(ji-1,jj-1)       & 

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r6069 r6073  
    148148                     CALL iom_rstput( kt, nitrst, numrow, 'vmask'  , vmask     ) ! need to correct barotropic velocity 
    149149                     CALL iom_rstput( kt, nitrst, numrow, 'smask'  , ssmask    ) ! need to correct barotropic velocity 
    150                      CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) )   ! need to compute temperature correction 
    151                      CALL iom_rstput( kt, nitrst, numrow, 'fse3u_n', fse3u_n(:,:,:) )   ! need to compute bt conservation 
    152                      CALL iom_rstput( kt, nitrst, numrow, 'fse3v_n', fse3v_n(:,:,:) )   ! need to compute bt conservation 
    153                      CALL iom_rstput( kt, nitrst, numrow, 'fsdepw_n', fsdepw_n(:,:,:) ) ! need to compute extrapolation if vvl 
     150                     CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:) )   ! need to compute temperature correction 
     151                     CALL iom_rstput( kt, nitrst, numrow, 'e3u_n', e3u_n(:,:,:) )   ! need to compute bt conservation 
     152                     CALL iom_rstput( kt, nitrst, numrow, 'e3v_n', e3v_n(:,:,:) )   ! need to compute bt conservation 
     153                     CALL iom_rstput( kt, nitrst, numrow, 'gdepw_n', gdepw_n(:,:,:) ) ! need to compute extrapolation if vvl 
    154154                  END IF 
    155155      ENDIF 

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r6069 r6073  
    529529      !! * Modules used 
    530530      USE dom_oce, ONLY : &             ! Ocean space and time domain variables 
    531 #if defined key_vvl  
    532531         & gdept_n        
    533 #else  
    534532         & gdept_1d       
    535 #endif                                         
    536533      USE phycst, ONLY : &              ! Physical constants 
    537534         & rday                          
    … …  
    647644                  &              kstp, jpi, jpj, jpk, nit000, idaystp,   &  
    648645                  &              zprofvar1, zprofvar2,                   &  
    649                   &              fsdept(:,:,:), fsdepw(:,:,:),           & 
     646                  &              gdept_n(:,:,:), gdepw_n(:,:,:),           & 
    650647                  &              tmask, nn_1dint, nn_2dint,              &  
    651648                  &              kdailyavtypes = nn_profdavtypes )  

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

    r6069 r6073  
    3030      & glamt, glamu, glamv, & 
    3131      & gphit, gphiu, gphiv, &  
    32 #if defined key_vvl  
    33       & gdept_n  
    34 #else  
    35       & gdept_0  
    36 #endif   
     32      & gdept_n, gdept_0  
    3733   USE lib_mpp,       ONLY : & 
    3834      & ctl_warn, ctl_stop 
    … …  
    547543      !! * Modules used  
    548544      USE obs_profiles_def   ! Definition of storage space for profile obs.  
    549       USE dom_oce,  ONLY : &  
    550 #if defined key_vvl   
    551       &   gdepw_n  
    552 #else  
    553       &   gdepw_0  
    554 #endif  
    555545        
    556546      IMPLICIT NONE  

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r6069 r6073  
    10571057         & gdepw_1d,      & 
    10581058         & gdepw_0,       &                        
    1059 #if defined key_vvl 
    10601059         & gdepw_n,       & 
    10611060         & gdept_n,       & 
    1062 #endif 
    10631061         & ln_zco,        & 
    10641062         & ln_zps              
    … …  
    11501148      IF ( .NOT.( ln_zps .OR. ln_zco ) ) THEN 
    11511149        ! Need to know the bathy depth for each observation for sco 
    1152         CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, fsdepw(:,:,:), & 
     1150        CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, gdepw_n(:,:,:), & 
    11531151        &                     zgdepw ) 
    11541152      ENDIF 

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r6060 r6073  
    567567      ! 
    568568 !!gm Not sure of that coding for ISF.... 
    569       ! where wmask = 0 set zmxlm == fse3w 
     569      ! where wmask = 0 set zmxlm == e3w_n 
    570570      CASE ( 0 )           ! bounded by the distance to surface and bottom 
    571571         DO jk = 2, jpkm1 

  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/step.F90

    r6069 r6073  
    293293!!    place. 
    294294!!  
    295 !!jc2: dynnxt must be the latest call. fse3t_b are indeed updated in that routine 
     295!!jc2: dynnxt must be the latest call. e3t_b are indeed updated in that routine 
    296296                         CALL tra_nxt       ( kstp )  ! finalize (bcs) tracer fields at next time step and swap 
    297297                         CALL dyn_nxt       ( kstp )  ! finalize (bcs) velocities at next time step and swap 
Note: See TracChangeset for help on using the changeset viewer.