Changeset 2258 for LMDZ5/branches/testing/libf/phylmd/phyredem.F90
- Timestamp:
- Apr 13, 2015, 10:21:09 AM (9 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2218,2221-2237
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/phyredem.F90
r2220 r2258 51 51 REAL tab_cntrl(length) 52 52 53 INTEGER isoil, nsrf 53 INTEGER isoil, nsrf,isw 54 54 CHARACTER (len=7) :: str7 55 55 CHARACTER (len=2) :: str2 … … 142 142 ENDDO 143 143 144 ! ================== Albedo ======================================= 145 print*,'PHYREDEM NOUVEAU' 146 DO nsrf = 1, nbsrf 147 DO isw=1, nsw 148 IF (isw.LE.99 .AND. nsrf.LE.99) THEN 149 WRITE(str7, '(i2.2, "srf", i2.2)') isw, nsrf 150 print*,'PHYREDEM ',"A_dir_SW"//str7 151 CALL put_field("A_dir_SW"//str7, "Albedo direct du sol bande "//str7, & 152 falb_dir(:, isw, nsrf)) 153 CALL put_field("A_dif_SW"//str7, "Albedo difus du sol bande "//str7, & 154 falb_dif(:, isw, nsrf)) 155 ELSE 156 PRINT*, "Trop de couches" 157 call abort_gcm("phyredem", "", 1) 158 ENDIF 159 ENDDO 160 ENDDO 161 162 ! ================== Tsoil ======================================= 144 163 DO nsrf = 1, nbsrf 145 164 DO isoil=1, nsoilmx
Note: See TracChangeset
for help on using the changeset viewer.