Changeset 5951 for branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
- Timestamp:
- 2015-11-30T12:48:01+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
r5950 r5951 17 17 USE trd_oce ! trends: ocean variables 18 18 USE eosbn2 ! equation of state and related derivatives 19 USE ldftra _oce ! ocean active tracers lateral physics19 USE ldftra ! lateral diffusion: eddy diffusivity & EIV coeff. 20 20 USE zdfddm ! vertical physics: double diffusion 21 21 USE phycst ! physical constants 22 ! 22 23 USE in_out_manager ! I/O manager 23 24 USE iom ! I/O manager library … … 99 100 CALL wrk_alloc( jpi, jpj, z2d ) 100 101 z2d(:,:) = wn(:,:,1) * ( & 101 102 103 &) / fse3t(:,:,1)102 & - ( rab_n(:,:,1,jp_tem) + rab_pe(:,:,1,jp_tem) ) * tsn(:,:,1,jp_tem) & 103 & + ( rab_n(:,:,1,jp_sal) + rab_pe(:,:,1,jp_sal) ) * tsn(:,:,1,jp_sal) & 104 & ) / fse3t(:,:,1) 104 105 CALL iom_put( "petrd_sad" , z2d ) 105 106 CALL wrk_dealloc( jpi, jpj, z2d )
Note: See TracChangeset
for help on using the changeset viewer.