Changeset 5259 for branches/2015/dev_r5218_CNRS17_coupling
- Timestamp:
- 2015-05-11T16:45:31+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_vardef.sh.500yfwb0
r4394 r5259 114 114 export VAR1_Ithick V1It_PREF V1It_SUFF 115 115 export VAR1_SNOW V1SNOW_PREF V1SNOW_SUFF 116 export VAR1_IvelV V1IvV_PREF V1IvV_ PREF116 export VAR1_IvelV V1IvV_PREF V1IvV_SUFF 117 117 #===================== EXP2 ===================== 118 118 export DATE1_2 DATE2_2 … … 127 127 export VAR2_Ithick V2It_PREF V2It_SUFF 128 128 export VAR2_SNOW V2SNOW_PREF V2SNOW_SUFF 129 export VAR2_IvelV V2IvV_PREF V2IvV_ PREF129 export VAR2_IvelV V2IvV_PREF V2IvV_SUFF 130 130 # -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_vardef.sh.500yfwb2
r4394 r5259 114 114 export VAR1_Ithick V1It_PREF V1It_SUFF 115 115 export VAR1_SNOW V1SNOW_PREF V1SNOW_SUFF 116 export VAR1_IvelV V1IvV_PREF V1IvV_ PREF116 export VAR1_IvelV V1IvV_PREF V1IvV_SUFF 117 117 #===================== EXP2 ===================== 118 118 export DATE1_2 DATE2_2 … … 127 127 export VAR2_Ithick V2It_PREF V2It_SUFF 128 128 export VAR2_SNOW V2SNOW_PREF V2SNOW_SUFF 129 export VAR2_IvelV V2IvV_PREF V2IvV_ PREF129 export VAR2_IvelV V2IvV_PREF V2IvV_SUFF 130 130 # -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_vardef.sh_example1
r4394 r5259 112 112 export VAR1_Ithick V1It_PREF V1It_SUFF 113 113 export VAR1_SNOW V1SNOW_PREF V1SNOW_SUFF 114 export VAR1_IvelV V1IvV_PREF V1IvV_ PREF114 export VAR1_IvelV V1IvV_PREF V1IvV_SUFF 115 115 #===================== EXP2 ===================== 116 116 export DATE1_2 DATE2_2 … … 125 125 export VAR2_Ithick V2It_PREF V2It_SUFF 126 126 export VAR2_SNOW V2SNOW_PREF V2SNOW_SUFF 127 export VAR2_IvelV V2IvV_PREF V2IvV_ PREF127 export VAR2_IvelV V2IvV_PREF V2IvV_SUFF 128 128 # -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_vardef.sh_example2
r4394 r5259 112 112 export VAR1_Ithick V1It_PREF V1It_SUFF 113 113 export VAR1_SNOW V1SNOW_PREF V1SNOW_SUFF 114 export VAR1_IvelV V1IvV_PREF V1IvV_ PREF114 export VAR1_IvelV V1IvV_PREF V1IvV_SUFF 115 115 #===================== EXP2 ===================== 116 116 export DATE1_2 DATE2_2 … … 125 125 export VAR2_Ithick V2It_PREF V2It_SUFF 126 126 export VAR2_SNOW V2SNOW_PREF V2SNOW_SUFF 127 export VAR2_IvelV V2IvV_PREF V2IvV_ PREF127 export VAR2_IvelV V2IvV_PREF V2IvV_SUFF 128 128 # -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90
r5121 r5259 21 21 USE timing ! preformance summary 22 22 USE wrk_nemo ! working arrays 23 USE fldread ! type FLD_N 24 USE phycst ! physical constant 25 USE in_out_manager ! I/O manager 23 26 24 27 IMPLICIT NONE … … 208 211 REAL(wp) :: zztmp 209 212 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: zsaldta ! Jan/Dec levitus salinity 213 ! reading initial file 214 LOGICAL :: ln_tsd_init !: T & S data flag 215 LOGICAL :: ln_tsd_tradmp !: internal damping toward input data flag 216 CHARACTER(len=100) :: cn_dir 217 TYPE(FLD_N) :: sn_tem,sn_sal 218 INTEGER :: ios=0 219 220 NAMELIST/namtsd/ ln_tsd_init,ln_tsd_tradmp,cn_dir,sn_tem,sn_sal 221 ! 222 223 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist : 224 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 225 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtsd in reference namelist for dia_ar5', lwp ) 226 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run 227 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 228 902 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtsd in configuration namelist for dia_ar5', lwp ) 229 IF(lwm) WRITE ( numond, namtsd ) 230 ! 210 231 !!---------------------------------------------------------------------- 211 232 ! … … 227 248 END DO 228 249 IF( lk_mpp ) CALL mpp_sum( vol0 ) 229 230 CALL iom_open ( 'data_1m_salinity_nomask', inum )231 CALL iom_get ( inum, jpdom_data, 'vosaline', zsaldta(:,:,:,1), 1 )232 CALL iom_get ( inum, jpdom_data, 'vosaline', zsaldta(:,:,:,2), 12 )250 251 CALL iom_open ( TRIM( cn_dir )//TRIM(sn_sal%clname), inum ) 252 CALL iom_get ( inum, jpdom_data, TRIM(sn_sal%clvar), zsaldta(:,:,:,1), 1 ) 253 CALL iom_get ( inum, jpdom_data, TRIM(sn_sal%clvar), zsaldta(:,:,:,2), 12 ) 233 254 CALL iom_close( inum ) 234 255 sn0(:,:,:) = 0.5_wp * ( zsaldta(:,:,:,1) + zsaldta(:,:,:,2) ) -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r5120 r5259 956 956 REAL(wp), POINTER, DIMENSION(:,:,:) :: zdept, zrhh 957 957 REAL(wp), POINTER, DIMENSION(:,:,:) :: zhpi, zu, zv, fsp, xsp, asp, bsp, csp, dsp 958 REAL(wp), POINTER, DIMENSION(:,:) :: zsshu_n, zsshv_n 958 959 !!---------------------------------------------------------------------- 959 960 ! 960 961 CALL wrk_alloc( jpi,jpj,jpk, zhpi, zu, zv, fsp, xsp, asp, bsp, csp, dsp ) 961 962 CALL wrk_alloc( jpi,jpj,jpk, zdept, zrhh ) 963 CALL wrk_alloc( jpi,jpj, zsshu_n, zsshv_n ) 962 964 ! 963 965 IF( kt == nit000 ) THEN … … 1040 1042 1041 1043 ! Z coordinate of U(ji,jj,1:jpkm1) and V(ji,jj,1:jpkm1) 1044 1045 ! Prepare zsshu_n and zsshv_n 1042 1046 DO jj = 2, jpjm1 1043 1047 DO ji = 2, jpim1 1044 zu(ji,jj,1) = - ( fse3u(ji,jj,1) - sshn(ji,jj) * znad) ! probable bug: changed from sshu_n for ztilde compilation 1045 zv(ji,jj,1) = - ( fse3v(ji,jj,1) - sshn(ji,jj) * znad) ! probable bug: changed from sshv_n for ztilde compilation 1048 zsshu_n(ji,jj) = (e12u(ji,jj) * sshn(ji,jj) + e12u(ji+1, jj) * sshn(ji+1,jj)) * & 1049 & r1_e12u(ji,jj) * umask(ji,jj,1) * 0.5_wp 1050 zsshv_n(ji,jj) = (e12v(ji,jj) * sshn(ji,jj) + e12v(ji+1, jj) * sshn(ji,jj+1)) * & 1051 & r1_e12v(ji,jj) * vmask(ji,jj,1) * 0.5_wp 1052 END DO 1053 END DO 1054 1055 DO jj = 2, jpjm1 1056 DO ji = 2, jpim1 1057 zu(ji,jj,1) = - ( fse3u(ji,jj,1) - zsshu_n(ji,jj) * znad) 1058 zv(ji,jj,1) = - ( fse3v(ji,jj,1) - zsshv_n(ji,jj) * znad) 1046 1059 END DO 1047 1060 END DO … … 1205 1218 CALL wrk_dealloc( jpi,jpj,jpk, zhpi, zu, zv, fsp, xsp, asp, bsp, csp, dsp ) 1206 1219 CALL wrk_dealloc( jpi,jpj,jpk, zdept, zrhh ) 1220 CALL wrk_dealloc( jpi,jpj, zsshu_n, zsshv_n ) 1207 1221 ! 1208 1222 END SUBROUTINE hpg_prj
Note: See TracChangeset
for help on using the changeset viewer.