Changeset 995 for LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F

Timestamp:

Sep 9, 2008, 3:17:08 PM (16 years ago)

Author:

lsce

Message:

• Modifications liées au calcul des nouveau sous-fractions
• Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
• Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

File:

• LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F

@@ -19 +19 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character (len=20) :: modname
+      character (len=*) :: modname
       integer ierr
-      character (len=80) :: message
+      character (len=*) :: message
 
       write(lunout,*) 'in abort_gcm'