- Timestamp:
- 2013-11-20T10:35:28+01:00 (11 years ago)
- Location:
- branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/SAS_SRC/daymod.F90
r3851 r4276 246 246 nday_year = 1 247 247 nsec_year = ndt05 248 IF( nsec1jan000 >= 2 * (2**30 - nsecd * nyear_len(1) / 2 ) ) THEN ! test integer 4 max value 249 CALL ctl_stop( 'The number of seconds between Jan. 1st 00h of nit000 year and Jan. 1st 00h ', & 250 & 'of the current year is exceeding the INTEGER 4 max VALUE: 2^31-1 -> 68.09 years in seconds', & 251 & 'You must do a restart at higher frequency (or remove this STOP and recompile everything in I8)' ) 252 ENDIF 248 253 nsec1jan000 = nsec1jan000 + nsecd * nyear_len(1) 249 254 IF( nleapy == 1 ) CALL day_mth -
branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/SAS_SRC/diawri.F90
r3331 r4276 259 259 CALL histdef( nid_T, "sowaflup", "Net Upward Water Flux" , "Kg/m2/s", & ! (emp-rnf) 260 260 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 261 CALL histdef( nid_T, "so waflcd", "concentration/dilution water flux" , "kg/m2/s", & ! (emps-rnf)262 &jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout )261 CALL histdef( nid_T, "sosfldow", "downward salt flux" , "PSU/m2/s", & ! (sfx) 262 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 263 263 CALL histdef( nid_T, "sohefldo", "Net Downward Heat Flux" , "W/m2" , & ! qns + qsr 264 264 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) … … 309 309 CALL histwrite( nid_T, "sst_m", it, sst_m, ndim_hT, ndex_hT ) ! sea surface temperature 310 310 CALL histwrite( nid_T, "sss_m", it, sss_m, ndim_hT, ndex_hT ) ! sea surface salinity 311 CALL histwrite( nid_T, "sowaflup", it, emp , ndim_hT, ndex_hT ) ! upward water flux 312 CALL histwrite( nid_T, "sowaflcd", it, emps , ndim_hT, ndex_hT ) ! c/d water flux 311 CALL histwrite( nid_T, "sowaflup", it, (emp - rnf ) , ndim_hT, ndex_hT ) ! upward water flux 312 CALL histwrite( nid_T, "sosfldow", it, sfx , ndim_hT, ndex_hT ) ! downward salt flux 313 ! (includes virtual salt flux beneath ice 314 ! in linear free surface case) 315 313 316 CALL histwrite( nid_T, "sohefldo", it, qns + qsr , ndim_hT, ndex_hT ) ! total heat flux 314 317 CALL histwrite( nid_T, "soshfldo", it, qsr , ndim_hT, ndex_hT ) ! solar heat flux -
branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r3769 r4276 382 382 USE diawri , ONLY: dia_wri_alloc 383 383 USE dom_oce , ONLY: dom_oce_alloc 384 ! 385 INTEGER :: ierr 384 USE oce , ONLY : sshn, sshb, snwice_mass, snwice_mass_b, snwice_fmass 385 ! 386 INTEGER :: ierr,ierr4 386 387 !!---------------------------------------------------------------------- 387 388 ! … … 389 390 ierr = ierr + dom_oce_alloc () ! ocean domain 390 391 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges 392 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), & 393 & snwice_fmass(jpi,jpj), STAT= ierr4 ) 394 ierr = ierr + ierr4 391 395 ! 392 396 IF( lk_mpp ) CALL mpp_sum( ierr ) -
branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90
r3364 r4276 81 81 82 82 ! 83 IF (kt == nn_it000 ) CALL sbc_ssm_init() 84 83 85 IF( nn_timing == 1 ) CALL timing_start( 'sbc_ssm') 84 86 … … 100 102 tsn(:,:,1,jp_tem) = sst_m(:,:) 101 103 tsn(:,:,1,jp_sal) = sss_m(:,:) 104 IF ( nn_ice == 1 ) THEN 105 tsb(:,:,1,jp_tem) = sst_m(:,:) 106 tsb(:,:,1,jp_sal) = sss_m(:,:) 107 ENDIF 102 108 ub (:,:,1 ) = ssu_m(:,:) 103 109 vb (:,:,1 ) = ssv_m(:,:) … … 135 141 TYPE(FLD_N) :: sn_usp, sn_vsp, sn_ssh 136 142 ! 137 NAMELIST/namsbc_s sm/cn_dir, ln_3d_uv, sn_tem, sn_sal, sn_usp, sn_vsp, sn_ssh143 NAMELIST/namsbc_sas/cn_dir, ln_3d_uv, sn_tem, sn_sal, sn_usp, sn_vsp, sn_ssh 138 144 139 145 !!---------------------------------------------------------------------- … … 151 157 ! 152 158 REWIND( numnam ) ! read in namlist namsbc_ssm 153 READ ( numnam, namsbc_s sm)159 READ ( numnam, namsbc_sas ) 154 160 ! ! store namelist information in an array 155 161 ! ! Control print 156 162 IF(lwp) THEN 157 163 WRITE(numout,*) 158 WRITE(numout,*) 'sbc_s sm: standalone surface scheme '164 WRITE(numout,*) 'sbc_sas : standalone surface scheme ' 159 165 WRITE(numout,*) '~~~~~~~~~~~ ' 160 WRITE(numout,*) ' Namelist namsbc_s sm'166 WRITE(numout,*) ' Namelist namsbc_sas' 161 167 WRITE(numout,*) 162 168 ENDIF … … 273 279 ! so allocate enough of arrays to use 274 280 ! 281 ierr3 = 0 275 282 jpm = MAX(jp_tem, jp_sal) 276 283 ALLOCATE( tsn(jpi,jpj,1,jpm), STAT=ierr0 ) 277 284 ALLOCATE( ub(jpi,jpj,1) , STAT=ierr1 ) 278 285 ALLOCATE( vb(jpi,jpj,1) , STAT=ierr2 ) 279 ierr = ierr0 + ierr1 + ierr2 286 IF ( nn_ice == 1 ) ALLOCATE( tsb(jpi,jpj,1,jpm), STAT=ierr3 ) 287 ierr = ierr0 + ierr1 + ierr2 + ierr3 280 288 IF( ierr > 0 ) THEN 281 289 CALL ctl_stop('sbc_ssm_init: unable to allocate surface arrays')
Note: See TracChangeset
for help on using the changeset viewer.