Changes between Version 234 and Version 235 of user/flavoni/libIGCM


Ignore:
Timestamp:
2009-02-17T11:09:34+01:00 (12 years ago)
Author:
flavoni
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • user/flavoni/libIGCM

    v234 v235  
    470470 
    471471 case ${config_UserChoices_CalendarType} in [[BR]] 
    472                leap)[[BR]] 
     472               leap ||Gregorian)[[BR]] 
    473473               ORCA_NLEAPY=1;;[[BR]] 
    474474               noleap)[[BR]] 
     
    482482 -e "s%${PAT_NLEAPY}%       nleapy=${ORCA_NLEAPY}%"                    \ 
    483483 
    484  * modipsl/modeles/NEMO/WORK/'''fldread.F90''' 
    485  
    486  difference with the old one: [[BR]] 
    487  
    488  in line 74 
    489  
    490  INTEGER  jf, '''ji, jj''' ! dummy indices[[BR]] 
    491  
    492  in line 94-99:  
    493   
    494  '''DO jj = 1, jpj''' 
    495   '''DO ji = 1, jpi''' 
    496    '''sd(jf)%fdta(ji,jj,1) = sd(jf)%fdta(ji,jj,2)''' 
    497   '''END DO''' 
    498  '''END DO''' 
    499  
    500  
    501  in lines 164-169: 
    502  
    503  '''sd(jf)%fnow(:,:) = ztintb * sd(jf)%fdta(:,:,1) + ztinta * sd(jf)%fdta(:,:,2)''' [[BR]] 
    504  '''DO jj = 1, jpj''' 
    505   '''DO ji = 1, jpi''' 
    506    '''sd(jf)%fnow(ji,jj) = ztintb * sd(jf)%fdta(ji,jj,1) + ztinta * sd(jf)%fdta(ji,jj,2)''' 
    507   '''END DO'''[[BR]] 
    508  '''END DO''' 
    509  
    510  in lines 172-181: 
    511  
    512  '''sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field'''[[BR]] 
    513  '''DO jj = 1, jpj''' 
    514   '''DO ji = 1, jpi''' 
    515    '''sd(jf)%fnow(ji,jj) = sd(jf)%fdta(ji,jj,2)   ! piecewise constant field''' 
    516   '''END DO''' 
    517  '''END DO''' 
    518484  
    519485[[BR]]