Changeset 9190 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2018-01-06T15:18:23+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: OPA_SRC: style only, results unchanged

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (6 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -284 +284 @@
       IF(lwp) THEN
          WRITE(numout,*)
-         WRITE(numout,*) 'dom_nam  : domain initialization through namelist read'
+         WRITE(numout,*) 'dom_nam : domain initialization through namelist read'
          WRITE(numout,*) '~~~~~~~ '
       ENDIF
@@ -297 +297 @@
       !
       IF(lwp) THEN                  ! control print
-         WRITE(numout,*) '   Namelist : namrun'
+         WRITE(numout,*) '   Namelist : namrun   ---   run parameters'
          WRITE(numout,*) '      job number                      nn_no           = ', nn_no
          WRITE(numout,*) '      experiment name for output      cn_exp          = ', TRIM( cn_exp           )
@@ -359 +359 @@
       IF( Agrif_Root() ) THEN
 #endif
+      IF(lwp) WRITE(numout,*)
       SELECT CASE ( nleapy )        ! Choose calendar for IOIPSL
       CASE (  1 ) 
          CALL ioconf_calendar('gregorian')
-         IF(lwp) WRITE(numout,*) '   The IOIPSL calendar is "gregorian", i.e. leap year'
+         IF(lwp) WRITE(numout,*) '   ==>>>   The IOIPSL calendar is "gregorian", i.e. leap year'
       CASE (  0 )
          CALL ioconf_calendar('noleap')
-         IF(lwp) WRITE(numout,*) '   The IOIPSL calendar is "noleap", i.e. no leap year'
+         IF(lwp) WRITE(numout,*) '   ==>>>   The IOIPSL calendar is "noleap", i.e. no leap year'
       CASE ( 30 )
          CALL ioconf_calendar('360d')
-         IF(lwp) WRITE(numout,*) '   The IOIPSL calendar is "360d", i.e. 360 days in a year'
+         IF(lwp) WRITE(numout,*) '   ==>>>   The IOIPSL calendar is "360d", i.e. 360 days in a year'
       END SELECT
 #if defined key_agrif
@@ -512 +513 @@
          CALL iom_get( inum, 'ORCA_index', zorca_res )   ;   kk_cfg = INT( zorca_res )
          !
-         WRITE(ldtxt(ii),*) '       '                                                     ;   ii = ii+1
-         WRITE(ldtxt(ii),*) '       ==>>>   ORCA configuration '                          ;   ii = ii+1
-         WRITE(ldtxt(ii),*) '       '                                                     ;   ii = ii+1
+         WRITE(ldtxt(ii),*) '   .'                                                     ;   ii = ii+1
+         WRITE(ldtxt(ii),*) '   ==>>>   ORCA configuration '                           ;   ii = ii+1
+         WRITE(ldtxt(ii),*) '   .'                                                     ;   ii = ii+1
          !
       ELSE                                !- cd_cfg & k_cfg are not used
@@ -524 +525 @@
             CALL iom_getatt( inum, 'cn_cfg', cd_cfg )  ! returns   !  if not found
             CALL iom_getatt( inum, 'nn_cfg', kk_cfg )  ! returns -999 if not found
-            IF( TRIM(cd_cfg) .EQ. '!') cd_cfg = 'UNKNOWN'
-            IF( kk_cfg .EQ. -999     ) kk_cfg = -9999999
+            IF( TRIM(cd_cfg) == '!') cd_cfg = 'UNKNOWN'
+            IF( kk_cfg == -999     ) kk_cfg = -9999999
          ENDIF
          !
@@ -536 +537 @@
       CALL iom_close( inum )
       !
-      WRITE(ldtxt(ii),*) '   cn_cfg = ', TRIM(cd_cfg), '   nn_cfg = ', kk_cfg             ;   ii = ii+1
-      WRITE(ldtxt(ii),*) '   jpiglo = ', kpi                                              ;   ii = ii+1
-      WRITE(ldtxt(ii),*) '   jpjglo = ', kpj                                              ;   ii = ii+1
-      WRITE(ldtxt(ii),*) '   jpkglo = ', kpk                                              ;   ii = ii+1
-      WRITE(ldtxt(ii),*) '   type of global domain lateral boundary   jperio = ', kperio  ;   ii = ii+1
+      WRITE(ldtxt(ii),*) '      cn_cfg = ', TRIM(cd_cfg), '   nn_cfg = ', kk_cfg             ;   ii = ii+1
+      WRITE(ldtxt(ii),*) '      jpiglo = ', kpi                                              ;   ii = ii+1
+      WRITE(ldtxt(ii),*) '      jpjglo = ', kpj                                              ;   ii = ii+1
+      WRITE(ldtxt(ii),*) '      jpkglo = ', kpk                                              ;   ii = ii+1
+      WRITE(ldtxt(ii),*) '      type of global domain lateral boundary   jperio = ', kperio  ;   ii = ii+1
       !        
    END SUBROUTINE domain_cfg