Changeset 2875 for LMDZ5/branches

Timestamp:

May 10, 2017, 1:19:42 PM (8 years ago)

Author:

acaubel

Message:

• Modification for IPSLCM5A2.1 configuration
  • removed limit on 2 latitud band per process
  • fixed t2m_min and max outputs

Location:

LMDZ5/branches/IPSLCM5A2.1

Files:

• DefLists/field_def_lmdz.xml (modified) (1 diff)
• libf/dyn3dmem/bands.F90 (modified) (2 diffs)
• libf/dyn3dmem/parallel_lmdz.F90 (modified) (1 diff)

LMDZ5/branches/IPSLCM5A2.1/DefLists/field_def_lmdz.xml

@@ -19 +19 @@
         <field id="tsol"    long_name="Surface Temperature"     unit="K" />
         <field id="t2m"        long_name="Temperature 2m" unit="K" />
-        <field id="t2m_min"    long_name="Temp 2m min"    unit="K" />
-        <field id="t2m_max"    long_name="Temp 2m max"    unit="K" />
+        <field id="t2m_min"    long_name="Temp 2m min"    unit="K"  operation="minimum" />
+        <field id="t2m_max"    long_name="Temp 2m max"    unit="K"  operation="maximum" />
         <field id="t2m_ter"    long_name="Temp 2m ter"    unit="K" />
         <field id="t2m_max_mon"   long_name="Monthly average max 2m temperature" unit="K" />

LMDZ5/branches/IPSLCM5A2.1/libf/dyn3dmem/bands.F90

@@ -219 +219 @@
         minvalue=value(i)
         min_proc=index(i)
-        if (jj_nb_caldyn(max_proc)>3) then
+        if (jj_nb_caldyn(max_proc)>2) then
           if (timer_iteration(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)<=1 ) then
              jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1
@@ -287 +287 @@
         min_proc=index(i)
 
-        if (jj_nb_vanleer(max_proc)>3) then
+        if (jj_nb_vanleer(max_proc)>2) then
           if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc)==0. .or. &
              timer_average(jj_nb_vanleer(max_proc)-1,timer_vanleer,max_proc)==0.) then

LMDZ5/branches/IPSLCM5A2.1/libf/dyn3dmem/parallel_lmdz.F90

@@ -154 +154 @@
         if ( i < MOD((jjm+1),mpi_size) ) jj_nb_para(i)=jj_nb_para(i)+1
         
-        if (jj_nb_para(i) <= 2 ) then
+        if (jj_nb_para(i) <= 1 ) then
           
          write(lunout,*)"Arret : le nombre de bande de lattitude par process est trop faible (<2)."