- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r6487 r11101 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 ) … … 600 600 ENDIF 601 601 ! 602 IF(lwp .AND. lflush) CALL flush(numout) 603 ! 602 604 IF( nn_timing == 1 ) CALL timing_stop('dom_hgr') 603 605 !
Note: See TracChangeset
for help on using the changeset viewer.