Changeset 11129 for NEMO/branches/2019/ENHANCE-03_domcfg/src/domhgr.F90
- Timestamp:
- 2019-06-18T17:11:36+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/ENHANCE-03_domcfg
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-03_domcfg/src/domhgr.F90
r10727 r11129 111 111 INTEGER :: ie1e2u_v ! fag for u- & v-surface read in coordinate file or not 112 112 !!---------------------------------------------------------------------- 113 !114 ! IF( nn_timing == 1 ) CALL timing_start('dom_hgr')115 113 ! 116 114 IF(lwp) THEN … … 437 435 ! ------------------------------------------ 438 436 ! The equator line must be the latitude coordinate axe 439 440 ! IF( nperio == 2 ) THEN 441 ! znorme = SQRT( SUM( gphiu(:,2) * gphiu(:,2) ) ) / REAL( jpi ) 442 ! IF( znorme > 1.e-13 ) CALL ctl_stop( ' ===>>>> : symmetrical condition: rerun with good equator line' ) 443 ! ENDIF 444 ! 445 ! IF( nn_timing == 1 ) CALL timing_stop('dom_hgr') 437 ! (PM) be carefull with nperio/jperio 438 IF( jperio == 2 ) THEN 439 znorme = SQRT( SUM( gphiu(:,2) * gphiu(:,2) ) ) / REAL( jpi ) 440 IF( znorme > 1.e-13 ) CALL ctl_stop( ' ===>>>> : symmetrical condition: rerun with good equator line' ) 441 ENDIF 446 442 ! 447 443 END SUBROUTINE dom_hgr
Note: See TracChangeset
for help on using the changeset viewer.