Changeset 743 for LMDZ4/branches/V3_test/libf/phylmd/interface_surf.F90

Timestamp:

Dec 11, 2006, 4:55:31 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nettoyage sur la version YM
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/interface_surf.F90 (modified) (5 diffs)

LMDZ4/branches/V3_test/libf/phylmd/interface_surf.F90

@@ -2065 +2065 @@
 ! sorties NETCDF des champs recus
 !
-!ym       ndexcs(:)=0
-!ym       itau_w = itau_phy + itime
-!ym       CALL histwrite(nidcs,cl_read(1),itau_w,read_sst,iim*(jjm+1),ndexcs)
-!ym       CALL histwrite(nidcs,cl_read(2),itau_w,read_sic,iim*(jjm+1),ndexcs)
-!ym       CALL histwrite(nidcs,cl_read(3),itau_w,read_alb_sic,iim*(jjm+1),ndexcs)
-!ym       CALL histwrite(nidcs,cl_read(4),itau_w,read_sit,iim*(jjm+1),ndexcs)
-!ym       CALL histsync(nidcs)
+     if (monocpu) THEN
+       ndexcs(:)=0
+       itau_w = itau_phy + itime
+       CALL histwrite(nidcs,cl_read(1),itau_w,read_sst,iim*(jjm+1),ndexcs)
+       CALL histwrite(nidcs,cl_read(2),itau_w,read_sic,iim*(jjm+1),ndexcs)
+       CALL histwrite(nidcs,cl_read(3),itau_w,read_alb_sic,iim*(jjm+1),ndexcs)
+       CALL histwrite(nidcs,cl_read(4),itau_w,read_sit,iim*(jjm+1),ndexcs)
+       CALL histsync(nidcs)
+     endif
 ! pas utile      IF (npas-itime.LT.nexca )CALL histclo(nidcs)
 
@@ -2401 +2403 @@
       tmp_field(ig) = 1.
     enddo    
-    call WriteField_phy('knindex',tmp_field,1)
+!ym    call WriteField_phy('knindex',tmp_field,1)
     
     tmp_field=0.
@@ -2408 +2410 @@
       tmp_field(ig) = tsurf_new(i)
     enddo    
-    call WriteField_phy('tsurf_new',tmp_field,1)
+!ym    call WriteField_phy('tsurf_new',tmp_field,1)
     
     tmp_field=0.
@@ -2415 +2417 @@
       tmp_field(ig) = alb_new(i)
     enddo    
-    call WriteField_phy('alb_new',tmp_field,1)
+!ym    call WriteField_phy('alb_new',tmp_field,1)
     
 !    tmp_field=0.
@@ -2422 +2424 @@
 !      tmp_field(ig) = pctsrf_new(i,nisurf)
  !   enddo    
-    call WriteField_phy('pctsrf_new', pctsrf_new(:,nisurf),1)
+!ym    call WriteField_phy('pctsrf_new', pctsrf_new(:,nisurf),1)
   endif
 !ym  do j=1,jjphy_nb