Changeset 12155
- Timestamp:
- 2019-12-10T15:56:14+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcblk.F90
r12154 r12155 401 401 ! Sanity/consistence test on humidity at first time step to detect potential screw-up: 402 402 IF( kt == nit000 ) THEN 403 WRITE(numout,*) ''403 IF(lwp) WRITE(numout,*) '' 404 404 #if defined key_agrif 405 WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ==='405 IF(lwp) WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ===' 406 406 #else 407 407 ztmp = SUM(tmask(:,:,1)) ! number of ocean points on local proc domain … … 424 424 END IF 425 425 END IF 426 WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ==='426 IF(lwp) WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ===' 427 427 #endif 428 WRITE(numout,*) ''428 IF(lwp) WRITE(numout,*) '' 429 429 END IF !IF( kt == nit000 ) 430 430 ! ! compute the surface ocean fluxes using bulk formulea
Note: See TracChangeset
for help on using the changeset viewer.