Changeset 10754 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
- Timestamp:
- 2019-03-14T17:12:01+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r6487 r10754 421 421 gphi0 = zphi1 + zsin_alpha * ze1deg * FLOAT( jpjglo-2 ) 422 422 423 IF( nprint ==1.AND. lwp ) THEN423 IF( nprint > 3 .AND. lwp ) THEN 424 424 WRITE(numout,*) ' ze1', ze1, 'cosalpha', zcos_alpha, 'sinalpha', zsin_alpha 425 425 WRITE(numout,*) ' ze1deg', ze1deg, 'glam0', glam0, 'gphi0', gphi0 … … 507 507 508 508 509 IF( nprint == 1.AND. lwp ) THEN509 IF( nprint > 3 .AND. lwp ) THEN 510 510 WRITE(numout,*) ' e1u e2u ' 511 511 CALL prihre( e1u,jpi,jpj,jpi-5,jpi,1,jpj-5,jpj,1,0.,numout )
Note: See TracChangeset
for help on using the changeset viewer.