- Timestamp:
- 2015-01-20T15:26:13+01:00 (9 years ago)
- Location:
- branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/IOM
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r4792 r5038 111 111 INTEGER :: numstp = -1 !: logical unit for time step 112 112 INTEGER :: numtime = -1 !: logical unit for timing 113 INTEGER :: numout = 6 !: logical unit for output print 113 INTEGER :: numout = 6 !: logical unit for output print; Set to stdout to ensure any early 114 ! output can be collected; do not change 114 115 INTEGER :: numnam_ref = -1 !: logical unit for reference namelist 115 116 INTEGER :: numnam_cfg = -1 !: logical unit for configuration specific namelist 116 INTEGER :: numond = 7!: logical unit for Output Namelist Dynamics117 INTEGER :: numond = -1 !: logical unit for Output Namelist Dynamics 117 118 INTEGER :: numnam_ice_ref = -1 !: logical unit for ice reference namelist 118 119 INTEGER :: numnam_ice_cfg = -1 !: logical unit for ice reference namelist 119 INTEGER :: numoni = 8!: logical unit for Output Namelist Ice120 INTEGER :: numoni = -1 !: logical unit for Output Namelist Ice 120 121 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 121 122 INTEGER :: numsol = -1 !: logical unit for solver statistics -
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4792 r5038 1189 1189 SUBROUTINE iom_context_finalize( cdname ) 1190 1190 CHARACTER(LEN=*), INTENT(in) :: cdname 1191 ! 1192 CALL iom_swap( cdname ) ! swap to cdname context 1193 CALL xios_context_finalize() ! finalize the context 1194 IF( cdname /= "nemo" ) CALL iom_swap( "nemo" ) ! return back to nemo context 1191 ! 1192 IF( xios_is_valid_context(cdname) ) THEN 1193 CALL iom_swap( cdname ) ! swap to cdname context 1194 CALL xios_context_finalize() ! finalize the context 1195 IF( cdname /= "nemo" ) CALL iom_swap( "nemo" ) ! return back to nemo context 1196 ENDIF 1195 1197 ! 1196 1198 END SUBROUTINE iom_context_finalize … … 1261 1263 CHARACTER(len=256) :: clsuff ! suffix name 1262 1264 CHARACTER(len=1) :: cl1 ! 1 character 1263 CHARACTER(len=2) :: cl2 ! 1 character 1265 CHARACTER(len=2) :: cl2 ! 2 characters 1266 CHARACTER(len=3) :: cl3 ! 3 characters 1264 1267 INTEGER :: ji, jg ! loop counters 1265 1268 INTEGER :: ix, iy ! i-,j- index … … 1287 1290 WRITE(cl2,'(i2.2)') ji 1288 1291 CALL iom_update_file_name('file'//cl2) 1292 END DO 1293 DO ji = 1, 999 1294 WRITE(cl3,'(i3.3)') ji 1295 CALL iom_update_file_name('file'//cl3) 1289 1296 END DO 1290 1297 -
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90
r4520 r5038 164 164 ENDIF 165 165 166 IF ( clinfo3 == 'tra' ) THEN 167 zvctl1 = t_ctll(jn) 168 zvctl2 = s_ctll(jn) 169 ELSEIF ( clinfo3 == 'dyn' ) THEN 170 zvctl1 = u_ctll(jn) 171 zvctl2 = v_ctll(jn) 166 IF( PRESENT(clinfo3)) THEN 167 IF ( clinfo3 == 'tra' ) THEN 168 zvctl1 = t_ctll(jn) 169 zvctl2 = s_ctll(jn) 170 ELSEIF ( clinfo3 == 'dyn' ) THEN 171 zvctl1 = u_ctll(jn) 172 zvctl2 = v_ctll(jn) 173 ENDIF 172 174 ENDIF 173 175 -
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r4792 r5038 22 22 USE iom ! I/O module 23 23 USE eosbn2 ! equation of state (eos bn2 routine) 24 USE trdm ld_oce ! ocean active mixed layer tracers trends variables24 USE trdmxl_oce ! ocean active mixed layer tracers trends variables 25 25 USE divcur ! hor. divergence and curl (div & cur routines) 26 26 USE sbc_ice, ONLY : lk_lim3 … … 120 120 CALL iom_rstput( kt, nitrst, numrow, 'hdivb' , hdivb ) 121 121 CALL iom_rstput( kt, nitrst, numrow, 'sshb' , sshb ) 122 IF( lk_lim3 ) CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 123 ! 122 124 IF( lk_lim3 ) CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 123 125 ! … … 134 136 #endif 135 137 IF( lk_lim3 ) THEN 136 CALL iom_rstput( kt, nitrst, numrow, 'iatte' , iatte ) !clem modif 137 CALL iom_rstput( kt, nitrst, numrow, 'oatte' , oatte ) !clem modif 138 CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev' , fraqsr_1lev ) !clem modif 138 139 ENDIF 139 140 IF( kt == nitrst ) THEN 140 141 CALL iom_close( numrow ) ! close the restart file (only at last time step) 141 IF( .NOT. lk_trdmld ) lrst_oce = .FALSE. 142 !!gm IF( .NOT. lk_trdmld ) lrst_oce = .FALSE. 143 !!gm not sure what to do here ===>>> ask to Sebastian 144 lrst_oce = .FALSE. 142 145 ENDIF 143 146 ! 144 147 END SUBROUTINE rst_write 148 145 149 146 150 SUBROUTINE rst_read_open … … 156 160 LOGICAL :: llok 157 161 !!---------------------------------------------------------------------- 158 159 IF( numror .LE.0 ) THEN162 ! 163 IF( numror <= 0 ) THEN 160 164 IF(lwp) THEN ! Contol prints 161 165 WRITE(numout,*) … … 247 251 hdivb(:,:,:) = hdivn(:,:,:) 248 252 sshb (:,:) = sshn (:,:) 249 IF( lk_lim3 ) THEN 253 254 IF( lk_vvl ) THEN 250 255 DO jk = 1, jpk 251 256 fse3t_b(:,:,jk) = fse3t_n(:,:,jk) 252 257 END DO 253 258 ENDIF 259 260 IF( lk_lim3 .AND. .NOT. lk_vvl ) THEN 261 DO jk = 1, jpk 262 fse3t_b(:,:,jk) = fse3t_n(:,:,jk) 263 END DO 264 ENDIF 265 254 266 ENDIF 255 267 ! 256 268 IF( lk_lim3 ) THEN 257 CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif 258 CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif 269 CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev' , fraqsr_1lev ) 259 270 ENDIF 260 271 !
Note: See TracChangeset
for help on using the changeset viewer.