Changeset 2787
- Timestamp:
- 2011-06-27T11:54:00+02:00 (13 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/cpp_ORCA2_OFF_PISCES.fcm
r2670 r2787 1 bld::tool::fppkeys key_trabbl key_vectopt_loop key_orca_r2 key_ dynspg_flt key_ldfslp key_traldf_c2d key_traldf_eiv key_zdftkekey_top key_offline key_pisces key_dtatrc key_diatrc key_iomput1 bld::tool::fppkeys key_trabbl key_vectopt_loop key_orca_r2 key_ldfslp key_traldf_c2d key_traldf_eiv key_top key_offline key_pisces key_dtatrc key_diatrc key_iomput -
trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90
r2715 r2787 254 254 CALL iom_get( inum4, jpdom_unknown, 'e3t_0' , e3t_0 ) 255 255 CALL iom_get( inum4, jpdom_unknown, 'e3w_0' , e3w_0 ) 256 DO jk = 1, jpk 257 e3t (:,:,jk) = e3t_0(jk) ! set to the ref. factors 258 e3u (:,:,jk) = e3t_0(jk) 259 e3v (:,:,jk) = e3t_0(jk) 260 e3w (:,:,jk) = e3w_0(jk) 261 gdept(:,:,jk) = gdept_0(jk) 262 gdepw(:,:,jk) = gdepw_0(jk) 263 END DO 256 264 ENDIF 257 265 -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r2758 r2787 41 41 !! *** FUNCTION zdf_mxl_alloc *** 42 42 !!---------------------------------------------------------------------- 43 zdf_mxl_alloc = 0 ! set to zero if no array to be allocated 43 44 IF( .NOT. ALLOCATED( nmln ) ) THEN 44 45 ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc ) -
trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90
r2715 r2787 15 15 USE oce_trc 16 16 USE trc 17 USE trcsms_my_trc 17 18 18 19 IMPLICIT NONE … … 38 39 39 40 ! ! Allocate MY_TRC arrays 40 IF( sms_lobster_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 41 42 CALL trc_ctl_my_trc ! Control consitency 41 IF( trc_sms_my_trc_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 43 42 44 43 IF(lwp) WRITE(numout,*) … … 49 48 ! 50 49 END SUBROUTINE trc_ini_my_trc 51 52 53 SUBROUTINE trc_ctl_my_trc54 !!----------------------------------------------------------------------55 !! *** ROUTINE trc_ctl_pisces ***56 !!57 !! ** Purpose : control the cpp options, namelist and files58 !!----------------------------------------------------------------------59 INTEGER :: jl, jn60 !!----------------------------------------------------------------------61 !62 IF(lwp) WRITE(numout,*)63 IF(lwp) WRITE(numout,*) ' use COLOR tracer '64 !65 DO jl = 1, jp_my_trc66 jn = jp_myt0 + jl - 167 WRITE( ctrcnm(jn),'(a,i2.2)' ) 'CLR', jn68 ctrcnl(jn)='Color concentration'69 ctrcun(jn)='N/A'70 END DO71 !72 END SUBROUTINE trc_ctl_my_trc73 50 74 51 #else -
trunk/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r2715 r2787 108 108 USE dom_oce , ONLY : e3w_0 => e3w_0 !: reference depth of w-points (m) 109 109 USE dom_oce , ONLY : gdepw_0 => gdepw_0 !: reference depth of w-points (m) 110 # if ! defined key_zco111 110 USE dom_oce , ONLY : gdep3w => gdep3w !: ??? 112 111 USE dom_oce , ONLY : gdept => gdept !: depth of t-points (m) … … 119 118 USE dom_oce , ONLY : e3uw => e3uw !: uw-points (m) 120 119 USE dom_oce , ONLY : e3vw => e3vw !: vw-points (m) 121 # endif 120 122 121 USE dom_oce , ONLY : ln_zps => ln_zps !: partial steps flag 123 122 USE dom_oce , ONLY : ln_sco => ln_sco !: s-coordinate flag
Note: See TracChangeset
for help on using the changeset viewer.