Changeset 690 for trunk/LMDZ.MARS/libf/phymars/inistats.F

Timestamp:

Jun 4, 2012, 10:37:25 AM (12 years ago)

Author:

acolaitis

Message:

Code re-organization in diverse parts of the GCM code. These are NOT cosmetic changes, but are needed for compilation of the Mesoscale model in NESTED configuration

File:

• trunk/LMDZ.MARS/libf/phymars/inistats.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/inistats.F

@@ -92 +92 @@
       ierr = NF_PUT_VAR_REAL (nid,nvarid,pseudoalt)
 #endif 
-      call def_var_stats(nid,"aps","hybrid pressure at midlayers"," ", 
-     &            1,idim_llm,nvarid,ierr)
+      call def_var_stats(nid,"aps","hybrid pressure at midlayers"
+     & ," ",1,idim_llm,nvarid,ierr)
 #ifdef NC_DOUBLE
       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aps)
@@ -100 +100 @@
 #endif
 
-      call def_var_stats(nid,"bps","hybrid sigma at midlayers"," ", 
-     &            1,idim_llm,nvarid,ierr)
+      call def_var_stats(nid,"bps","hybrid sigma at midlayers"
+     & ," ",1,idim_llm,nvarid,ierr)
 #ifdef NC_DOUBLE
       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bps)