Changeset 2338 for LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

Timestamp:

Aug 5, 2015, 5:37:29 PM (9 years ago)

Author:

dcugnet

Message:

 

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

@@ -162 +162 @@
     ALLOCATE(ocemask(iim,jjp1),lon_omask(iim,jjp1),dlon_omask(iim ))
     ALLOCATE(ocetmp (iim,jjp1),lat_omask(iim,jjp1),dlat_omask(jjp1))
-    CALL flinopen("o2a.nc", .FALSE.,iim,jjp1,llm_tmp,lon_omask,lat_omask,lev,  &
-     &                                       ttm_tmp,itaul,date,dt,fid)
+    CALL flinopen("o2a.nc", .FALSE.,iml_omask,jml_omask,llm_tmp,               &
+                  lon_omask,lat_omask,lev,ttm_tmp,itaul,date,dt,fid)
     CALL flinget(fid, "OceMask",    iim,jjp1,llm_tmp,ttm_tmp,1,1,ocetmp)
     CALL flinclo(fid)