Changeset 3195 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

Timestamp:

2011-12-06T17:40:25+01:00 (13 years ago)

Author:

smasson

Message:

syntaxe change to clearly indentify work arrays

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

@@ -79 +79 @@
          iiceform       ,   &  !  1 = ice formed   ; 0 = no ice formed
          ihemis                !  dummy indice
-      REAL(wp), POINTER, DIMENSION(:) :: &
-         zqbgow           ,  &  !  heat budget of the open water (negative)
-         zfrl_old         ,  &  !  previous sea/ice fraction
-         zhice_old        ,  &  !  previous ice thickness
-         zhice0           ,  &  !  thickness of newly formed ice in leads
-         zfrlmin          ,  &  !  minimum fraction for leads
-         zdhicbot               !  part of thickness of newly formed ice in leads which 
+      REAL(wp), POINTER, DIMENSION(:) ::   zqbgow      !  heat budget of the open water (negative)
+      REAL(wp), POINTER, DIMENSION(:) ::   zfrl_old    !  previous sea/ice fraction
+      REAL(wp), POINTER, DIMENSION(:) ::   zhice_old   !  previous ice thickness
+      REAL(wp), POINTER, DIMENSION(:) ::   zhice0      !  thickness of newly formed ice in leads
+      REAL(wp), POINTER, DIMENSION(:) ::   zfrlmin     !  minimum fraction for leads
+      REAL(wp), POINTER, DIMENSION(:) ::   zdhicbot    !  part of thickness of newly formed ice in leads which 
                                 !  has been already used in transport for example
       REAL(wp)  ::  &