- Timestamp:
- Mar 29, 2023, 3:14:27 PM (18 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
r3803 r4482 424 424 IF(NF90_GET_ATT(ncid, varid, 'calendar', cal_in)/=NF90_NOERR) THEN 425 425 SELECT CASE(mode) 426 CASE('RUG', 'ALB'); cal_in='360 d'426 CASE('RUG', 'ALB'); cal_in='360_day' 427 427 CASE('SIC', 'SST'); cal_in='gregorian' 428 428 END SELECT … … 492 492 !--- DROPPED FOR BCS DATA (FRACTIONS CAN BE HIGHER THAN 1) 493 493 IF(ll.AND.ix_sic/=1.AND.mode=='SIC') & 494 CALL abort_physic(mode,'unrealistic '//TRIM(mode)//' found: '//TRIM(str) )494 CALL abort_physic(mode,'unrealistic '//TRIM(mode)//' found: '//TRIM(str), 1) 495 495 496 496 END IF … … 599 599 CALL pchfe_95(timeyear, champtime(i, j, :), yder, skip, & 600 600 arth(0.5, real(ndays_in) / ndays, ndays), champan(i, j, :), ierr) 601 if (ierr < 0) stop 1601 if (ierr < 0) call abort_physic("get_2Dfield", "", 1) 602 602 n_extrap = n_extrap + ierr 603 603 END DO … … 641 641 ALLOCATE(champo(klon, ndays)) 642 642 DO k=1, ndays 643 CALL gr_dyn_fi(1, iip1, jjp1, klon, champan(1, 1, k), champo( 1, k))643 CALL gr_dyn_fi(1, iip1, jjp1, klon, champan(1, 1, k), champo(:, k)) 644 644 END DO 645 645 DEALLOCATE(champan)
Note: See TracChangeset
for help on using the changeset viewer.