- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
r5215 r6808 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 … … 36 37 37 38 !! * Substitutions 38 # include "domzgr_substitute.h90"39 39 # include "zdfddm_substitute.h90" 40 40 # include "vectopt_loop_substitute.h90" … … 78 78 zpe(:,:,:) = 0._wp 79 79 ! 80 IF ( kt /= nkstp ) THEN! full eos: set partial derivatives at the 1st call of kt time step80 IF( kt /= nkstp ) THEN ! full eos: set partial derivatives at the 1st call of kt time step 81 81 nkstp = kt 82 82 CALL eos_pen( tsn, rab_PE, zpe ) … … 96 96 CASE ( jptra_yad ) ; CALL iom_put( "petrd_yad", zpe ) ! merid. advection 97 97 CASE ( jptra_zad ) ; CALL iom_put( "petrd_zad", zpe ) ! vertical advection 98 IF( .NOT.lk_vvl) THEN ! cst volume : adv flux through z=0 surface98 IF( ln_linssh ) THEN ! cst volume : adv flux through z=0 surface 99 99 CALL wrk_alloc( jpi, jpj, z2d ) 100 100 z2d(:,:) = wn(:,:,1) * ( & 101 102 103 & ) / fse3t(:,:,1)101 & - ( rab_n(:,:,1,jp_tem) + rab_pe(:,:,1,jp_tem) ) * tsn(:,:,1,jp_tem) & 102 & + ( rab_n(:,:,1,jp_sal) + rab_pe(:,:,1,jp_sal) ) * tsn(:,:,1,jp_sal) & 103 & ) / e3t_n(:,:,1) 104 104 CALL iom_put( "petrd_sad" , z2d ) 105 105 CALL wrk_dealloc( jpi, jpj, z2d ) … … 115 115 CASE ( jptra_bbc ) ; CALL iom_put( "petrd_bbc" , zpe ) ! bottom bound cond (geoth flux) 116 116 CASE ( jptra_atf ) ; CALL iom_put( "petrd_atf" , zpe ) ! asselin time filter (last trend) 117 !IF( .NOT.lk_vvl) THEN ! cst volume : ssh term (otherwise include in e3t variation)117 !IF( ln_linssh ) THEN ! cst volume : ssh term (otherwise include in e3t variation) 118 118 ! CALL wrk_alloc( jpi, jpj, z2d ) 119 119 ! z2d(:,:) = ( ssha(:,:) - sshb(:,:) ) & 120 120 ! & * ( dPE_dt(:,:,1) * tsn(:,:,1,jp_tem) & 121 ! & + dPE_ds(:,:,1) * tsn(:,:,1,jp_sal) ) / ( fse3t(:,:,1) * pdt )121 ! & + dPE_ds(:,:,1) * tsn(:,:,1,jp_sal) ) / ( e3t_n(:,:,1) * pdt ) 122 122 ! CALL iom_put( "petrd_sad" , z2d ) 123 123 ! CALL wrk_dealloc( jpi, jpj, z2d ) … … 150 150 rab_pe(:,:,:,:) = 0._wp 151 151 ! 152 IF ( lk_vvl) CALL ctl_stop('trd_pen_init : PE trends not coded for variable volume')152 IF( .NOT.ln_linssh ) CALL ctl_stop('trd_pen_init : PE trends not coded for variable volume') 153 153 ! 154 154 nkstp = nit000 - 1
Note: See TracChangeset
for help on using the changeset viewer.