Changeset 8514 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedia.F90

Timestamp:

2017-09-08T17:09:25+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part5 - almost done

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedia.F90 (modified) (3 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedia.F90

@@ -164 +164 @@
       INTEGER            ::   ios, ierror   ! local integer
       !!
-      NAMELIST/namice_dia/ ln_limdiachk, ln_limdiahsb, ln_limctl, iiceprt, jiceprt  
+      NAMELIST/namice_dia/ ln_icediachk, ln_icediahsb, ln_icectl, iiceprt, jiceprt  
       !!----------------------------------------------------------------------
       !
@@ -181 +181 @@
          WRITE(numout,*) ' ~~~~~~~~~~~'
          WRITE(numout,*) '   Namelist namice_dia : '
-         WRITE(numout,*) '      Diagnose online heat/mass/salt budget      ln_limdiachk = ', ln_limdiachk
-         WRITE(numout,*) '      Output          heat/mass/salt budget      ln_limdiahsb = ', ln_limdiahsb
-         WRITE(numout,*) '      control prints for a given grid point         ln_limctl = ', ln_limctl
+         WRITE(numout,*) '      Diagnose online heat/mass/salt budget      ln_icediachk = ', ln_icediachk
+         WRITE(numout,*) '      Output          heat/mass/salt budget      ln_icediahsb = ', ln_icediahsb
+         WRITE(numout,*) '      control prints for a given grid point         ln_icectl = ', ln_icectl
          WRITE(numout,*) '         chosen grid point position         (iiceprt,jiceprt) = (', iiceprt,',', jiceprt,')'
       ENDIF
       !      
-      IF( ln_limdiahsb ) THEN
+      IF( ln_icediahsb ) THEN
          ALLOCATE( vol_loc_ini(jpi,jpj), sal_loc_ini(jpi,jpj), tem_loc_ini(jpi,jpj), STAT=ierror )
          IF( ierror > 0 )  THEN
@@ -202 +202 @@
    SUBROUTINE ice_dia_rst( cdrw, kt )
       !!---------------------------------------------------------------------
-      !!                   ***  ROUTINE limdia_rst  ***
+      !!                   ***  ROUTINE icedia_rst  ***
       !!                     
       !! ** Purpose :   Read or write DIA file in restart file