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 9019 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 – NEMO

Ignore:
Timestamp:
2017-12-13T15:58:53+01:00 (6 years ago)
Author:
timgraham
Message:

Merge of dev_CNRS_2017 into branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r7822 r9019  
    3737   USE domvvl         ! variable volume 
    3838   USE c1d            ! 1D configuration 
    39    USE domc1d         ! 1D configuration: column location 
    4039   USE dyncor_c1d     ! 1D configuration: Coriolis term    (cor_c1d routine) 
    4140   USE wet_dry        ! wetting and drying 
     
    4544   USE lbclnk         ! ocean lateral boundary condition (or mpp link) 
    4645   USE lib_mpp        ! distributed memory computing library 
    47    USE wrk_nemo       ! Memory Allocation 
    4846   USE timing         ! Timing 
    4947 
     
    8381      !!---------------------------------------------------------------------- 
    8482      ! 
    85       IF( nn_timing == 1 )   CALL timing_start('dom_init') 
     83      IF( ln_timing )   CALL timing_start('dom_init') 
    8684      ! 
    8785      IF(lwp) THEN         ! Ocean domain Parameters (control print) 
     
    9896         WRITE(numout,cform) '       ' ,'   jpij    : ', jpij 
    9997         WRITE(numout,*)     '      mpp local domain info (mpp):' 
    100          WRITE(numout,*)     '              jpni    : ', jpni, '   jpreci  : ', jpreci 
    101          WRITE(numout,*)     '              jpnj    : ', jpnj, '   jprecj  : ', jprecj 
     98         WRITE(numout,*)     '              jpni    : ', jpni, '   nn_hls  : ', nn_hls 
     99         WRITE(numout,*)     '              jpnj    : ', jpnj, '   nn_hls  : ', nn_hls 
    102100         WRITE(numout,*)     '              jpnij   : ', jpnij 
    103101         WRITE(numout,*)     '      lateral boundary of the Global domain : jperio  = ', jperio 
     
    119117      ENDIF 
    120118      ! 
    121       !       
    122 !!gm  This should be removed with the new configuration interface 
    123       IF( lk_c1d .AND. ln_c1d_locpt )  CALL dom_c1d( rn_lat1d, rn_lon1d ) 
    124 !!gm end 
    125       ! 
    126119      !           !==  Reference coordinate system  ==! 
    127120      ! 
     
    199192      IF( ln_write_cfg )   CALL cfg_write         ! create the configuration file 
    200193      ! 
    201       IF( nn_timing == 1 )   CALL timing_stop('dom_init') 
     194      IF( ln_timing )   CALL timing_stop('dom_init') 
    202195      ! 
    203196   END SUBROUTINE dom_init 
     
    246239         IF( nn_print >= 1 ) THEN 
    247240            WRITE(numout,*) 
    248             WRITE(numout,*) '          conversion local  ==> global i-index domain' 
     241            WRITE(numout,*) '          conversion local  ==> global i-index domain (mig)' 
    249242            WRITE(numout,25)              (mig(ji),ji = 1,jpi) 
    250243            WRITE(numout,*) 
    251244            WRITE(numout,*) '          conversion global ==> local  i-index domain' 
    252             WRITE(numout,*) '             starting index' 
     245            WRITE(numout,*) '             starting index (mi0)' 
    253246            WRITE(numout,25)              (mi0(ji),ji = 1,jpiglo) 
    254             WRITE(numout,*) '             ending index' 
     247            WRITE(numout,*) '             ending index (mi1)' 
    255248            WRITE(numout,25)              (mi1(ji),ji = 1,jpiglo) 
    256249            WRITE(numout,*) 
    257             WRITE(numout,*) '          conversion local  ==> global j-index domain' 
     250            WRITE(numout,*) '          conversion local  ==> global j-index domain (mjg)' 
    258251            WRITE(numout,25)              (mjg(jj),jj = 1,jpj) 
    259252            WRITE(numout,*) 
    260253            WRITE(numout,*) '          conversion global ==> local  j-index domain' 
    261             WRITE(numout,*) '             starting index' 
     254            WRITE(numout,*) '             starting index (mj0)' 
    262255            WRITE(numout,25)              (mj0(jj),jj = 1,jpjglo) 
    263             WRITE(numout,*) '             ending index' 
     256            WRITE(numout,*) '             ending index (mj1)' 
    264257            WRITE(numout,25)              (mj1(jj),jj = 1,jpjglo) 
    265258         ENDIF 
     
    593586      !                       ! ============================= ! 
    594587      !          
    595       clnam = 'domcfg_out'  ! filename (configuration information) 
     588      clnam = cn_domcfg_out  ! filename (configuration information) 
    596589      CALL iom_open( TRIM(clnam), inum, ldwrt = .TRUE., kiolib = jprstlib ) 
    597590       
Note: See TracChangeset for help on using the changeset viewer.