Changeset 2232 for LMDZ5/trunk/libf/phylmd/stdlevvar.F90

Timestamp:

Mar 13, 2015, 9:21:25 AM (9 years ago)

Author:

fhourdin

Message:

1) Fusion des procédures clcdrag.F90 et coefcdrag.F90

dans une procédure unique cdrag.F90.
Les deux anciennes sont obsolètes mais maintenues dans le
code quelques mois pour d'éventuels tests.

2) modification du nom du module arth.F90 en arth_m.F90 pour

avoir le même nom de fichier et de module (règle adoptée
pour LMDZ et utilisée par makelmdz).

1) merging clcdrag.F90 and coefcdrag.F90 in one procedure cdrag.F90
2) renaming arth.F90 in arth_m.F90

6. Wang/FH

File:

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

LMDZ5/trunk/libf/phylmd/stdlevvar.F90

@@ -98 +98 @@
 !
       okri=.FALSE.
-      CALL coefcdrag(klon, knon, nsrf, zxli, &
- &                   speed, t1, q1, z1, psol, &
- &                   ts1, qsurf, rugos, okri, ri1,  &         
- &                   cdram, cdrah, cdran, zri1, pref)            
+!      CALL coefcdrag(klon, knon, nsrf, zxli, &
+! &                   speed, t1, q1, z1, psol, &
+! &                   ts1, qsurf, rugos, okri, ri1,  &         
+! &                   cdram, cdrah, cdran, zri1, pref)            
+! Fuxing WANG, 04/03/2015, replace the coefcdrag by the merged version: cdrag
+      CALL cdrag(knon, nsrf, &
+ &                   speed, t1, q1, z1, &
+ &                   psol, ts1, qsurf, rugos, &
+ &                   cdram, cdrah, zri1, pref)
+
 ! --- special Dice: on force cdragm ( a defaut de forcer ustar) MPL 05082013
      IF (ok_prescr_ust) then