Changeset 115 for LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

Timestamp:

Jul 28, 2000, 6:49:17 PM (24 years ago)

Author:

lmdzadmin

Message:

Probleme entre physdem et phyredem qui n'ecrivait pas les bonnes valeurs
dans la table de controle de restartphy.nc. J'ai donc remplace
dyn3d/physdem.F par phylmd/phyredem.F
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -1000 +1000 @@
       call cpl2gath(read_alb_sic, alb_new, klon, knon,iim,jjm, knindex)
   endif
+  
+!  if (lafin) call quitcpl
 
   END SUBROUTINE interfoce_cpl