Changeset 1457 for LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/phyetat0.F
- Timestamp:
- Nov 22, 2010, 4:19:25 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/phyetat0.F
r1456 r1457 21 21 USE infotrac 22 22 USE traclmdz_mod, ONLY : traclmdz_from_restart 23 USE carbon_cycle_mod,ONLY : carbon_cycle_tr, carbon_cycle_cpl 23 USE carbon_cycle_mod,ONLY : 24 & carbon_cycle_tr, carbon_cycle_cpl, co2_send 24 25 25 26 IMPLICIT none … … 133 134 134 135 135 136 IF( clesphy0(1).NE.tab_cntrl( 5 ) ) THEN 137 clesphy0(1)=tab_cntrl( 5 ) 138 ENDIF 139 140 IF( clesphy0(2).NE.tab_cntrl( 6 ) ) THEN 141 clesphy0(2)=tab_cntrl( 6 ) 142 ENDIF 143 144 IF( clesphy0(3).NE.tab_cntrl( 7 ) ) THEN 145 clesphy0(3)=tab_cntrl( 7 ) 146 ENDIF 147 148 IF( clesphy0(4).NE.tab_cntrl( 8 ) ) THEN 149 clesphy0(4)=tab_cntrl( 8 ) 150 ENDIF 151 152 IF( clesphy0(5).NE.tab_cntrl( 9 ) ) THEN 153 clesphy0(5)=tab_cntrl( 9 ) 154 ENDIF 155 156 IF( clesphy0(6).NE.tab_cntrl( 10 ) ) THEN 157 clesphy0(6)=tab_cntrl( 10 ) 158 ENDIF 159 160 IF( clesphy0(7).NE.tab_cntrl( 11 ) ) THEN 161 clesphy0(7)=tab_cntrl( 11 ) 162 ENDIF 163 164 IF( clesphy0(8).NE.tab_cntrl( 12 ) ) THEN 165 clesphy0(8)=tab_cntrl( 12 ) 166 ENDIF 167 136 clesphy0(1)=tab_cntrl( 5 ) 137 clesphy0(2)=tab_cntrl( 6 ) 138 clesphy0(3)=tab_cntrl( 7 ) 139 clesphy0(4)=tab_cntrl( 8 ) 140 clesphy0(5)=tab_cntrl( 9 ) 141 clesphy0(6)=tab_cntrl( 10 ) 142 clesphy0(7)=tab_cntrl( 11 ) 143 clesphy0(8)=tab_cntrl( 12 ) 168 144 169 145 c … … 1078 1054 1079 1055 END DO 1080 1081 1056 CALL traclmdz_from_restart(trs) 1057 1058 IF (carbon_cycle_cpl) THEN 1059 ALLOCATE(co2_send(klon), stat=ierr) 1060 IF (ierr /= 0) CALL abort_gcm 1061 & ('phyetat0','pb allocation co2_send',1) 1062 CALL get_field("co2_send",co2_send,found) 1063 IF (.NOT. found) THEN 1064 PRINT*,"phyetat0: Le champ <co2_send> est absent" 1065 PRINT*,"Initialisation uniforme a co2_ppm=",co2_ppm 1066 co2_send(:) = co2_ppm 1067 END IF 1068 END IF 1082 1069 END IF 1083 1070
Note: See TracChangeset
for help on using the changeset viewer.