Changeset 907 for trunk/LMDZ.GENERIC/libf

Timestamp:

Mar 22, 2013, 10:45:24 AM (12 years ago)

Author:

emillour

Message:

Generic/common/universal models:

• Added possibility to write restartfi.nc files in parallel (MPI)
• Added arch files suitable for Ada (IDRIS supercomputer)
• Some further cleanup is clearly required to merge generic/universal models
• LMDZ.UNIVERSAL/libf/phygeneric/dimphy.F90 to be uptaded in following commit (can't both remove a symbolic link and create a file with the same name in a single commit with svn).

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

@@ -1585 +1585 @@
 
             write(*,*)'PHYSIQ: for physdem ztime_fin =',ztime_fin
+#ifdef CPP_PARA
+! for now in parallel we use a different routine to write restartfi.nc
+            call phyredem(ngrid,"restartfi.nc",           &
+                    ptimestep,pday,ztime_fin,tsurf,tsoil,emis,q2,qsurf_hist, &
+                    cloudfrac,totcloudfrac,hice)
+#else
             call physdem1(ngrid,"restartfi.nc",long,lati,nsoilmx,nq,            &
                     ptimestep,pday,ztime_fin,tsurf,tsoil,emis,q2,qsurf_hist, &
                     area,albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,      &
                     cloudfrac,totcloudfrac,hice,noms)
+#endif
          endif