Changeset 1150 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jan 6, 2014, 10:27:56 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. put surface temperature update under .not.nosurf flag. commented and added prints for ichoice=8. added a modification of iradia in rcm1d.def to be able to still use same .def as subsequent 3D runs for consistency

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• physiq.F90 (modified) (2 diffs)
• profile.F (modified) (1 diff)
• rcm1d.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

@@ -1350 +1350 @@
 !-----------------------------------------------------------------------
 
+      if (.not.nosurf) then
+
 !     Increment surface temperature
       tsurf(1:ngrid)=tsurf(1:ngrid)+ptimestep*zdtsurf(1:ngrid) 
@@ -1358 +1360 @@
                 ptimestep,tsurf,tsoil,capcal,fluxgrd)
       endif
+
+      endif ! if (.not.nosurf)
 
 !-------------------------

trunk/LMDZ.GENERIC/libf/phystd/profile.F

@@ -175 +175 @@
 c   ---------
 
+      ! first value is surface temperature
+      ! then profile of atmospheric temperature
       ELSE IF(ichoice.GE.8) THEN
       OPEN(11,file='profile',status='old',form='formatted',err=101)

trunk/LMDZ.GENERIC/libf/phystd/rcm1d.F

@@ -677 +677 @@
         temp(ilayer)=tmp2(ilayer)
       ENDDO
-      
+      print*,"check"
+      PRINT*,"INPUT SURFACE TEMPERATURE",tsurf
+      PRINT*,"INPUT TEMPERATURE PROFILE",temp
 
 c  Initialisation albedo / inertie du sol