Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90
r6486 r10774 41 41 IF(lwp) WRITE(numout,*) 'ldf_dyn_c2d : 2d lateral eddy viscosity coefficient' 42 42 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 43 IF(lwp .AND. lflush) CALL flush(numout) 43 44 44 45 ! harmonic operator (ahm1, ahm2) : ( T- and F- points) (used for laplacian operators … … 85 86 CALL prihre(ahm2,jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout) 86 87 ENDIF 88 IF(lwp .AND. lflush) CALL flush(numout) 87 89 ENDIF 88 90 … … 119 121 CALL prihre(ahm4,jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout) 120 122 ENDIF 123 IF(lwp .AND. lflush) CALL flush(numout) 121 124 ENDIF 122 125 ! … … 160 163 IF(lwp) WRITE(numout,*) '~~~~~~ --' 161 164 IF(lwp) WRITE(numout,*) ' orca ocean configuration' 165 IF(lwp .AND. lflush) CALL flush(numout) 162 166 163 167 IF( cp_cfg == "orca" .AND. cp_cfz == "antarctic" ) THEN … … 316 320 ENDIF 317 321 ! 322 IF(lwp .AND. lflush) CALL flush(numout) 323 ! 318 324 CALL wrk_dealloc( jpi , jpj , icof ) 319 325 ! … … 358 364 IF(lwp) WRITE(numout,*) '~~~~~~ --' 359 365 IF(lwp) WRITE(numout,*) ' orca_r1 configuration' 366 IF(lwp .AND. lflush) CALL flush(numout) 360 367 361 368 IF( cp_cfg == "orca" .AND. cp_cfz == "antarctic" ) THEN … … 519 526 ENDIF 520 527 ! 528 IF(lwp .AND. lflush) CALL flush(numout) 529 ! 521 530 CALL wrk_dealloc( jpi , jpj , icof ) 522 531 !
Note: See TracChangeset
for help on using the changeset viewer.