Changeset 1378 for IOIPSL/trunk/src/fliocom.f90
- Timestamp:
- 04/20/11 12:08:00 (13 years ago)
- File:
-
- 1 edited
-
IOIPSL/trunk/src/fliocom.f90 (modified) (63 diffs)
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/fliocom.f90
r965 r1378 11 11 USE calendar, ONLY : lock_calendar,ioget_calendar, & 12 12 & ioconf_calendar,ju2ymds,ymds2ju 13 USE errioipsl, ONLY : ipslerr,ipsldbg 13 USE errioipsl, ONLY : ipslerr,ipsldbg, ipslout 14 14 USE stringop, ONLY : strlowercase,str_xfw 15 15 !- … … 867 867 !- 868 868 IF (l_dbg) THEN 869 WRITE( *,*) "->fliocrfd - file name : ",TRIM(f_n)869 WRITE(ipslout,*) "->fliocrfd - file name : ",TRIM(f_n) 870 870 ENDIF 871 871 !- … … 990 990 !- 991 991 IF (l_dbg) THEN 992 WRITE( *,*) ' fliocrfd, external model file-id : ',f_e992 WRITE(ipslout,*) ' fliocrfd, external model file-id : ',f_e 993 993 ENDIF 994 994 !- … … 1040 1040 !- 1041 1041 IF (l_dbg) THEN 1042 WRITE( *,*) '<-fliocrfd'1042 WRITE(ipslout,*) '<-fliocrfd' 1043 1043 ENDIF 1044 1044 !---------------------- … … 1074 1074 !- 1075 1075 IF (l_dbg) THEN 1076 WRITE( *,*) "->fliopstc"1076 WRITE(ipslout,*) "->fliopstc" 1077 1077 ENDIF 1078 1078 !- … … 1100 1100 !--- 1101 1101 IF (l_dbg) THEN 1102 WRITE( *,*) ' fliopstc : Define the Longitude axis'1102 WRITE(ipslout,*) ' fliopstc : Define the Longitude axis' 1103 1103 ENDIF 1104 1104 !--- … … 1144 1144 !--- 1145 1145 IF (l_dbg) THEN 1146 WRITE( *,*) ' fliopstc : Define the Latitude axis'1146 WRITE(ipslout,*) ' fliopstc : Define the Latitude axis' 1147 1147 ENDIF 1148 1148 !--- … … 1188 1188 !--- 1189 1189 IF (l_dbg) THEN 1190 WRITE( *,*) ' fliopstc : Define the Vertical axis'1190 WRITE(ipslout,*) ' fliopstc : Define the Vertical axis' 1191 1191 ENDIF 1192 1192 !--- … … 1219 1219 !--- 1220 1220 IF (l_dbg) THEN 1221 WRITE( *,*) ' fliopstc : Define the Time axis'1221 WRITE(ipslout,*) ' fliopstc : Define the Time axis' 1222 1222 ENDIF 1223 1223 !--- … … 1317 1317 IF (PRESENT(x_axis).OR.PRESENT(x_axis_2d)) THEN 1318 1318 IF (l_dbg) THEN 1319 WRITE( *,*) ' fliopstc : Create the Longitude axis'1319 WRITE(ipslout,*) ' fliopstc : Create the Longitude axis' 1320 1320 ENDIF 1321 1321 IF (PRESENT(x_axis)) THEN … … 1330 1330 IF (PRESENT(y_axis).OR.PRESENT(y_axis_2d)) THEN 1331 1331 IF (l_dbg) THEN 1332 WRITE( *,*) ' fliopstc : Create the Latitude axis'1332 WRITE(ipslout,*) ' fliopstc : Create the Latitude axis' 1333 1333 ENDIF 1334 1334 IF (PRESENT(y_axis)) THEN … … 1343 1343 IF (PRESENT(z_axis)) THEN 1344 1344 IF (l_dbg) THEN 1345 WRITE( *,*) ' fliopstc : Create the Vertical axis'1345 WRITE(ipslout,*) ' fliopstc : Create the Vertical axis' 1346 1346 ENDIF 1347 1347 i_rc = NF90_PUT_VAR(f_e,levid,z_axis(:)) … … 1352 1352 IF (PRESENT(t_axis)) THEN 1353 1353 IF (l_dbg) THEN 1354 WRITE( *,*) ' fliopstc : Create the Time axis'1354 WRITE(ipslout,*) ' fliopstc : Create the Time axis' 1355 1355 ENDIF 1356 1356 i_rc = NF90_PUT_VAR(f_e,timeid,REAL(t_axis(:))) … … 1362 1362 !- 1363 1363 IF (l_dbg) THEN 1364 WRITE( *,*) "<-fliopstc"1364 WRITE(ipslout,*) "<-fliopstc" 1365 1365 ENDIF 1366 1366 !---------------------- … … 1428 1428 !- 1429 1429 IF (l_dbg) THEN 1430 WRITE( *,*) "->fliodefv ",TRIM(v_n)," ",n_d,"D"1430 WRITE(ipslout,*) "->fliodefv ",TRIM(v_n)," ",n_d,"D" 1431 1431 ENDIF 1432 1432 !- … … 1567 1567 !- 1568 1568 IF (l_dbg) THEN 1569 WRITE( *,*) "<-fliodefv"1569 WRITE(ipslout,*) "<-fliodefv" 1570 1570 ENDIF 1571 1571 !---------------------- … … 2048 2048 ELSE IF (PRESENT(r_85)) THEN; cvr_d = "R8 5D"; 2049 2049 ENDIF 2050 WRITE( *,*) "->flioputv ",TRIM(v_n)," ",TRIM(cvr_d)2050 WRITE(ipslout,*) "->flioputv ",TRIM(v_n)," ",TRIM(cvr_d) 2051 2051 ENDIF 2052 2052 !- … … 2131 2131 !- 2132 2132 IF (l_dbg) THEN 2133 WRITE( *,*) "<-flioputv"2133 WRITE(ipslout,*) "<-flioputv" 2134 2134 ENDIF 2135 2135 !---------------------- … … 2238 2238 !- 2239 2239 IF (l_dbg) THEN 2240 WRITE( *,*) "->flioputa ",TRIM(v_n)," ",TRIM(a_n)2240 WRITE(ipslout,*) "->flioputa ",TRIM(v_n)," ",TRIM(a_n) 2241 2241 ENDIF 2242 2242 !- … … 2270 2270 !- 2271 2271 IF (l_dbg) THEN 2272 WRITE( *,*) "<-flioputa"2272 WRITE(ipslout,*) "<-flioputa" 2273 2273 ENDIF 2274 2274 !---------------------- … … 2291 2291 !- 2292 2292 IF (l_dbg) THEN 2293 WRITE( *,*) '->flioopfd, file name : ',TRIM(f_n)2293 WRITE(ipslout,*) '->flioopfd, file name : ',TRIM(f_n) 2294 2294 ENDIF 2295 2295 !- … … 2325 2325 !- 2326 2326 IF (l_dbg) THEN 2327 WRITE( *,*) ' flioopfd, model file-id : ',f_e2327 WRITE(ipslout,*) ' flioopfd, model file-id : ',f_e 2328 2328 ENDIF 2329 2329 !- … … 2352 2352 WRITE(*,'(" flioopfd - dimensions :",/,(5(1X,I10),:))') & 2353 2353 & nw_dl(:,f_i) 2354 WRITE( *,*) "<-flioopfd"2354 WRITE(ipslout,*) "<-flioopfd" 2355 2355 ENDIF 2356 2356 !---------------------- … … 2373 2373 !- 2374 2374 IF (l_dbg) THEN 2375 WRITE( *,*) "->flioinqf"2375 WRITE(ipslout,*) "->flioinqf" 2376 2376 ENDIF 2377 2377 !- … … 2418 2418 !- 2419 2419 IF (l_dbg) THEN 2420 WRITE( *,*) "<-flioinqf"2420 WRITE(ipslout,*) "<-flioinqf" 2421 2421 ENDIF 2422 2422 !---------------------- … … 2445 2445 !- 2446 2446 IF (l_dbg) THEN 2447 WRITE( *,*) "->flioinqn"2447 WRITE(ipslout,*) "->flioinqn" 2448 2448 ENDIF 2449 2449 !- … … 2622 2622 !- 2623 2623 IF (l_dbg) THEN 2624 WRITE( *,*) "<-flioinqn"2624 WRITE(ipslout,*) "<-flioinqn" 2625 2625 ENDIF 2626 2626 !---------------------- … … 2662 2662 !- 2663 2663 IF (l_dbg) THEN 2664 WRITE( *,*) "->fliogstc"2664 WRITE(ipslout,*) "->fliogstc" 2665 2665 ENDIF 2666 2666 !- … … 2932 2932 !--- 2933 2933 IF (l_dbg) THEN 2934 WRITE( *,*) ' fliogstc - get time details'2934 WRITE(ipslout,*) ' fliogstc - get time details' 2935 2935 ENDIF 2936 2936 !--- … … 2977 2977 !--- 2978 2978 IF (l_dbg) THEN 2979 WRITE( *,*) ' fliogstc - first time : ',t_axis(1:1)2979 WRITE(ipslout,*) ' fliogstc - first time : ',t_axis(1:1) 2980 2980 ENDIF 2981 2981 ENDIF … … 3015 3015 CALL lock_calendar (new_status=l_tmp) 3016 3016 IF (l_dbg) THEN 3017 WRITE( *,*) ' fliogstc - time_type : '3018 WRITE( *,*) it_t3019 WRITE( *,*) ' fliogstc - year month day second t_init : '3020 WRITE( *,*) j_yy,j_mo,j_dd,r_ss,t_init3017 WRITE(ipslout,*) ' fliogstc - time_type : ' 3018 WRITE(ipslout,*) it_t 3019 WRITE(ipslout,*) ' fliogstc - year month day second t_init : ' 3020 WRITE(ipslout,*) j_yy,j_mo,j_dd,r_ss,t_init 3021 3021 ENDIF 3022 3022 ENDIF … … 3080 3080 !- 3081 3081 IF (l_dbg) THEN 3082 WRITE( *,*) "<-fliogstc"3082 WRITE(ipslout,*) "<-fliogstc" 3083 3083 ENDIF 3084 3084 !---------------------- … … 3108 3108 !- 3109 3109 IF (l_dbg) THEN 3110 WRITE( *,*) "->flioinqv ",TRIM(v_n)3110 WRITE(ipslout,*) "->flioinqv ",TRIM(v_n) 3111 3111 ENDIF 3112 3112 !- … … 3221 3221 !- 3222 3222 IF (l_dbg) THEN 3223 WRITE( *,*) "<-flioinqv"3223 WRITE(ipslout,*) "<-flioinqv" 3224 3224 ENDIF 3225 3225 !---------------------- … … 3702 3702 ELSE IF (PRESENT(r_85)) THEN; cvr_d = "R8 5D"; 3703 3703 ENDIF 3704 WRITE( *,*) "->fliogetv ",TRIM(v_n)," ",TRIM(cvr_d)3704 WRITE(ipslout,*) "->fliogetv ",TRIM(v_n)," ",TRIM(cvr_d) 3705 3705 ENDIF 3706 3706 !- … … 3785 3785 !- 3786 3786 IF (l_dbg) THEN 3787 WRITE( *,*) "<-fliogetv"3787 WRITE(ipslout,*) "<-fliogetv" 3788 3788 ENDIF 3789 3789 !---------------------- … … 3806 3806 !- 3807 3807 IF (l_dbg) THEN 3808 WRITE( *,*) "->flioinqa ",TRIM(v_n),"-",TRIM(a_n)3808 WRITE(ipslout,*) "->flioinqa ",TRIM(v_n),"-",TRIM(a_n) 3809 3809 ENDIF 3810 3810 !- … … 3836 3836 !- 3837 3837 IF (l_dbg) THEN 3838 WRITE( *,*) "<-flioinqa"3838 WRITE(ipslout,*) "<-flioinqa" 3839 3839 ENDIF 3840 3840 !---------------------- … … 3948 3948 !- 3949 3949 IF (l_dbg) THEN 3950 WRITE( *,*) "->fliogeta ",TRIM(v_n)," ",TRIM(a_n)3950 WRITE(ipslout,*) "->fliogeta ",TRIM(v_n)," ",TRIM(a_n) 3951 3951 ENDIF 3952 3952 !- … … 4012 4012 !- 4013 4013 IF (l_dbg) THEN 4014 WRITE( *,*) "<-fliogeta"4014 WRITE(ipslout,*) "<-fliogeta" 4015 4015 ENDIF 4016 4016 !---------------------- … … 4031 4031 !- 4032 4032 IF (l_dbg) THEN 4033 WRITE( *,*) &4033 WRITE(ipslout,*) & 4034 4034 & "->fliorenv ",TRIM(v_o_n),"->",TRIM(v_n_n) 4035 4035 ENDIF … … 4052 4052 !- 4053 4053 IF (l_dbg) THEN 4054 WRITE( *,*) "<-fliorenv"4054 WRITE(ipslout,*) "<-fliorenv" 4055 4055 ENDIF 4056 4056 !---------------------- … … 4071 4071 !- 4072 4072 IF (l_dbg) THEN 4073 WRITE( *,*) &4073 WRITE(ipslout,*) & 4074 4074 & "->fliorena ",TRIM(v_n),"-",TRIM(a_o_n),"->",TRIM(a_n_n) 4075 4075 ENDIF … … 4102 4102 !- 4103 4103 IF (l_dbg) THEN 4104 WRITE( *,*) "<-fliorena"4104 WRITE(ipslout,*) "<-fliorena" 4105 4105 ENDIF 4106 4106 !---------------------- … … 4121 4121 !- 4122 4122 IF (l_dbg) THEN 4123 WRITE( *,*) "->fliodela ",TRIM(v_n),"-",TRIM(a_n)4123 WRITE(ipslout,*) "->fliodela ",TRIM(v_n),"-",TRIM(a_n) 4124 4124 ENDIF 4125 4125 !- … … 4150 4150 !- 4151 4151 IF (l_dbg) THEN 4152 WRITE( *,*) "<-fliodela"4152 WRITE(ipslout,*) "<-fliodela" 4153 4153 ENDIF 4154 4154 !---------------------- … … 4169 4169 !- 4170 4170 IF (l_dbg) THEN 4171 WRITE( *,*) "->fliocpya - file",f_i_i,"-",TRIM(v_n_i),"-",TRIM(a_n)4172 WRITE( *,*) " copied to file ",f_i_o,"-",TRIM(v_n_o)4171 WRITE(ipslout,*) "->fliocpya - file",f_i_i,"-",TRIM(v_n_i),"-",TRIM(a_n) 4172 WRITE(ipslout,*) " copied to file ",f_i_o,"-",TRIM(v_n_o) 4173 4173 ENDIF 4174 4174 !- … … 4216 4216 !- 4217 4217 IF (l_dbg) THEN 4218 WRITE( *,*) "<-fliocpya"4218 WRITE(ipslout,*) "<-fliocpya" 4219 4219 ENDIF 4220 4220 !---------------------- … … 4238 4238 !- 4239 4239 IF (l_dbg) THEN 4240 WRITE( *,*) "->flioqstc ",TRIM(c_type)4240 WRITE(ipslout,*) "->flioqstc ",TRIM(c_type) 4241 4241 ENDIF 4242 4242 !- … … 4260 4260 !- 4261 4261 IF (l_dbg) THEN 4262 WRITE( *,*) "<-flioqstc"4262 WRITE(ipslout,*) "<-flioqstc" 4263 4263 ENDIF 4264 4264 !---------------------- … … 4276 4276 !- 4277 4277 IF (l_dbg) THEN 4278 WRITE( *,*) "->fliosync"4278 WRITE(ipslout,*) "->fliosync" 4279 4279 ENDIF 4280 4280 !- … … 4302 4302 IF (f_e > 0) THEN 4303 4303 IF (l_dbg) THEN 4304 WRITE( *,*) ' fliosync - synchronising file number ',i_f4304 WRITE(ipslout,*) ' fliosync - synchronising file number ',i_f 4305 4305 ENDIF 4306 4306 i_rc = NF90_SYNC(f_e) … … 4312 4312 !- 4313 4313 IF (l_dbg) THEN 4314 WRITE( *,*) "<-fliosync"4314 WRITE(ipslout,*) "<-fliosync" 4315 4315 ENDIF 4316 4316 !---------------------- … … 4328 4328 !- 4329 4329 IF (l_dbg) THEN 4330 WRITE( *,*) "->flioclo"4330 WRITE(ipslout,*) "->flioclo" 4331 4331 ENDIF 4332 4332 !- … … 4350 4350 IF (f_e > 0) THEN 4351 4351 IF (l_dbg) THEN 4352 WRITE( *,*) ' flioclo - closing file number ',i_f4352 WRITE(ipslout,*) ' flioclo - closing file number ',i_f 4353 4353 ENDIF 4354 4354 i_rc = NF90_CLOSE(f_e) … … 4361 4361 !- 4362 4362 IF (l_dbg) THEN 4363 WRITE( *,*) "<-flioclo"4363 WRITE(ipslout,*) "<-flioclo" 4364 4364 ENDIF 4365 4365 !--------------------- … … 4445 4445 ELSE 4446 4446 i_rc = NF90_GET_ATT(f_e,NF90_GLOBAL,c_name,tmp_i) 4447 WRITE( *,*) ' ',TRIM(c_name),' : ',tmp_i4447 WRITE(ipslout,*) ' ',TRIM(c_name),' : ',tmp_i 4448 4448 ENDIF 4449 4449 ELSE IF ( (t_ea == NF90_REAL4).OR.(t_ea == NF90_REAL8) ) THEN … … 4456 4456 ELSE 4457 4457 i_rc = NF90_GET_ATT(f_e,NF90_GLOBAL,c_name,tmp_r) 4458 WRITE( *,*) ' ',TRIM(c_name),' : ',tmp_r4458 WRITE(ipslout,*) ' ',TRIM(c_name),' : ',tmp_r 4459 4459 ENDIF 4460 4460 ELSE 4461 4461 tmp_c = '' 4462 4462 i_rc = NF90_GET_ATT(f_e,NF90_GLOBAL,c_name,tmp_c) 4463 WRITE( *,*) ' ',TRIM(c_name),' : "',TRIM(tmp_c),'"'4463 WRITE(ipslout,*) ' ',TRIM(c_name),' : "',TRIM(tmp_c),'"' 4464 4464 ENDIF 4465 4465 ENDDO … … 4499 4499 ELSE 4500 4500 i_rc = NF90_GET_ATT(f_e,i_n,c_name,tmp_i) 4501 WRITE( *,*) ' ',TRIM(c_name),' : ',tmp_i4501 WRITE(ipslout,*) ' ',TRIM(c_name),' : ',tmp_i 4502 4502 ENDIF 4503 4503 ELSE IF ( (t_ea == NF90_REAL4).OR.(t_ea == NF90_REAL8) ) THEN … … 4510 4510 ELSE 4511 4511 i_rc = NF90_GET_ATT(f_e,i_n,c_name,tmp_r) 4512 WRITE( *,*) ' ',TRIM(c_name),' : ',tmp_r4512 WRITE(ipslout,*) ' ',TRIM(c_name),' : ',tmp_r 4513 4513 ENDIF 4514 4514 ELSE 4515 4515 tmp_c = '' 4516 4516 i_rc = NF90_GET_ATT(f_e,i_n,c_name,tmp_c) 4517 WRITE( *,*) ' ',TRIM(c_name),' : "',TRIM(tmp_c),'"'4517 WRITE(ipslout,*) ' ',TRIM(c_name),' : "',TRIM(tmp_c),'"' 4518 4518 ENDIF 4519 4519 ENDDO … … 4937 4937 !- 4938 4938 IF (l_dbg) THEN 4939 WRITE( *,*) "->flio_inf"4939 WRITE(ipslout,*) "->flio_inf" 4940 4940 ENDIF 4941 4941 !- … … 4960 4960 !--- 4961 4961 IF (l_dbg) THEN 4962 WRITE( *,*) " flio_inf ",kv,ml," ",TRIM(f_d_n)4962 WRITE(ipslout,*) " flio_inf ",kv,ml," ",TRIM(f_d_n) 4963 4963 ENDIF 4964 4964 !--- … … 5005 5005 !- 5006 5006 IF (l_dbg) THEN 5007 WRITE( *,*) "<-flio_inf"5007 WRITE(ipslout,*) "<-flio_inf" 5008 5008 ENDIF 5009 5009 !----------------------
Note: See TracChangeset
for help on using the changeset viewer.
