New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11129 for NEMO/branches/2019/ENHANCE-03_domcfg/src/domhgr.F90 – NEMO

Ignore:
Timestamp:
2019-06-18T17:11:36+02:00 (5 years ago)
Author:
mathiot
Message:

simplification of domcfg (rm all var_n and var_b as it is not needed) (ticket #2143)

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  
    111111      INTEGER  ::   ie1e2u_v             ! fag for u- & v-surface read in coordinate file or not 
    112112      !!---------------------------------------------------------------------- 
    113       ! 
    114   !    IF( nn_timing == 1 )  CALL timing_start('dom_hgr') 
    115113      ! 
    116114      IF(lwp) THEN 
     
    437435      ! ------------------------------------------ 
    438436      ! 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 
    446442      ! 
    447443   END SUBROUTINE dom_hgr 
Note: See TracChangeset for help on using the changeset viewer.