Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r6487 r12555 95 95 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 96 96 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 97 IF(lwm ) WRITE ( numond, nam_diaharm )97 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 98 98 ! 99 99 IF(lwp) THEN … … 160 160 ALLOCATE( ana_temp(jpi,jpj,2*nb_ana,3) ) 161 161 ana_temp(:,:,:,:) = 0._wp 162 163 IF(lwp .AND. lflush) CALL flush(numout) 162 164 163 165 END SUBROUTINE dia_harm_init … … 231 233 CALL wrk_alloc( jpi , jpj , jpmax_harmo , 2 , ana_amp ) 232 234 233 IF(lwp) WRITE(numout,*) 234 IF(lwp) WRITE(numout,*) 'anharmo_end: kt=nitend_han: Perform harmonic analysis' 235 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 235 IF(lwp) THEN 236 WRITE(numout,*) 237 WRITE(numout,*) 'anharmo_end: kt=nitend_han: Perform harmonic analysis' 238 WRITE(numout,*) '~~~~~~~~~~~~' 239 IF(lflush) CALL flush(numout) 240 ENDIF 236 241 237 242 ztime_ini = nit000_han*rdt ! Initial time in seconds at the beginning of analysis … … 400 405 #endif 401 406 IF(lwp) WRITE(numout,*) ' ' 407 IF(lwp .AND. lflush) CALL flush(numout) 402 408 403 409 ! A) Elevation
Note: See TracChangeset
for help on using the changeset viewer.