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 3862 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 – NEMO

Ignore:
Timestamp:
2013-04-08T13:07:43+02:00 (11 years ago)
Author:
acc
Message:

Branch 2013/dev_r3858_NOC_ZTC #863. Change names of gdept_0, gdepw_0, e3t_0, e3w_0 to gdept_1d, gdepw_1d, e3t_1d, e3w_1d respectively in preparation for the introduction of time invariant 3d arrays using the _0 suffix

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r3651 r3862  
    10171017      USE dom_oce, ONLY : &             ! Ocean space and time domain variables 
    10181018         & rdt,           &                        
    1019          & gdept_0,       &              
     1019         & gdept_1d,       &              
    10201020         & tmask, umask, vmask                             
    10211021      USE phycst, ONLY : &              ! Physical constants 
    … …  
    10791079                  &              kstp, jpi, jpj, jpk, nit000, idaystp,   & 
    10801080                  &              tsn(:,:,:,jp_tem), tsn(:,:,:,jp_sal),   & 
    1081                   &              gdept_0, tmask, n1dint, n2dint,         & 
     1081                  &              gdept_1d, tmask, n1dint, n2dint,        & 
    10821082                  &              kdailyavtypes = endailyavtypes ) 
    10831083            ELSE 
    … …  
    10851085                  &              kstp, jpi, jpj, jpk, nit000, idaystp,   & 
    10861086                  &              tsn(:,:,:,jp_tem), tsn(:,:,:,jp_sal),   & 
    1087                   &              gdept_0, tmask, n1dint, n2dint               ) 
     1087                  &              gdept_1d, tmask, n1dint, n2dint              ) 
    10881088            ENDIF 
    10891089         END DO 
    … …  
    11291129           ! zonal component of velocity 
    11301130           CALL obs_vel_opt( veldatqc(jveloset), kstp, jpi, jpj, jpk, & 
    1131               &              nit000, idaystp, un, vn, gdept_0, umask, vmask, & 
     1131              &              nit000, idaystp, un, vn, gdept_1d, umask, vmask, & 
    11321132                             n1dint, n2dint, ld_velav(jveloset) ) 
    11331133         END DO 
Note: See TracChangeset for help on using the changeset viewer.