Ignore:
Timestamp:
2015-06-19T17:18:00+02:00 (5 years ago)
Author:
davestorkey
Message:

Update 2015/dev_r5021_UKMO1_CICE_coupling branch to revision 5442 of the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

    r5234 r5443  
    5151      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
    5252      !! 
    53       INTEGER :: inum             ! temporary logical unit 
    54       INTEGER :: ji, jj, jk, jt   ! dummy loop indices 
    55       INTEGER :: ii0, ii1, ij0, ij1 
    56       REAL(wp) ::   zarea, zvol, zwei 
    57       REAL(wp) ::  ztemi(4), ztemo(4), zsali(4), zsalo(4), zflxi(4), zflxo(4) 
    58       REAL(wp) ::  zt, zs, zu   
    59       REAL(wp) ::  zsm0, zfwfnew 
     53      INTEGER  :: inum             ! temporary logical unit 
     54      INTEGER  :: ji, jj, jk, jt   ! dummy loop indices 
     55      INTEGER  :: ii0, ii1, ij0, ij1 
     56      INTEGER  :: isrow         ! index for ORCA1 starting row 
     57      REAL(wp) :: zarea, zvol, zwei 
     58      REAL(wp) :: ztemi(4), ztemo(4), zsali(4), zsalo(4), zflxi(4), zflxo(4) 
     59      REAL(wp) :: zt, zs, zu   
     60      REAL(wp) :: zsm0, zfwfnew 
    6061      IF( cp_cfg == "orca" .AND. jp_cfg == 1 .OR. jp_cfg == 2 .OR. jp_cfg == 4 ) THEN 
    6162      !!---------------------------------------------------------------------- 
     
    165166         CASE ( 1 )                                  !  ORCA_R1 configurations 
    166167            !                                        ! ======================= 
    167             ii0 = 283   ;   ii1 = 283 
    168             ij0 = 200   ;   ij1 = 200 
     168            ! This dirty section will be suppressed by simplification process: all this will come back in input files 
     169            ! Currently these hard-wired indices relate to the original (pre-v3.6) configuration  
     170            ! which had a grid-size of 362x292. 
     171            ! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6.  
     172            ! The original domain can still be used optionally if the isf code is not activated.  
     173            ! An adjustment (isrow) is made to the hard-wired indices if the extended domain (362x332) is being used. 
     174            !  
     175            IF    ( jpjglo == 292 ) THEN  ;  isrow = 0  ! Using pre-v3.6 files or adjusted start row from isf-extended grid 
     176            ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 40 ! Using full isf­extended domain.  
     177            ENDIF                                       ! Adjust j­indices to account for more southerly starting latitude 
     178            ii0 = 283           ;   ii1 = 283 
     179            ij0 = 201 + isrow   ;   ij1 = 201 + isrow 
    169180            !                                        ! ======================= 
    170181         CASE DEFAULT                                !    ORCA R05 or R025 
     
    212223         CASE ( 1 )                                  !  ORCA_R1 configurations 
    213224            !                                        ! ======================= 
    214             ii0 = 282   ;   ii1 = 282 
    215             ij0 = 200   ;   ij1 = 200 
     225            !  This dirty section will be suppressed by simplification process: 
     226            !  all this will come back in input files 
     227            IF    ( jpjglo == 292 ) THEN  ;  isrow = 0   
     228            ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 39 
     229            ENDIF                                       
     230            ii0 = 282           ;   ii1 = 282 
     231            ij0 = 201 + isrow   ;   ij1 = 201 + isrow 
    216232            !                                        ! ======================= 
    217233         CASE DEFAULT                                !    ORCA R05 or R025 
     
    259275         CASE ( 1 )                                  !  ORCA_R1 configurations 
    260276            !                                        ! ======================= 
    261             ii0 = 331   ;   ii1 = 331 
    262             ij0 = 176   ;   ij1 = 176 
     277            !  This dirty section will be suppressed by simplification process: 
     278            !  all this will come back in input files 
     279            IF    ( jpjglo == 292 ) THEN  ;  isrow = 0   
     280            ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 39 
     281            ENDIF                                       
     282            ii0 = 331           ;   ii1 = 331 
     283            ij0 = 176 + isrow   ;   ij1 = 176 + isrow 
    263284            !                                        ! ======================= 
    264285         CASE DEFAULT                                !    ORCA R05 or R025 
     
    306327         CASE ( 1 )                                  !  ORCA_R1 configurations 
    307328            !                                        ! ======================= 
    308             ii0 = 297   ;   ii1 = 297  
    309             ij0 = 230   ;   ij1 = 230 
     329            !  This dirty section will be suppressed by simplification process: 
     330            !  all this will come back in input files 
     331            IF    ( jpjglo == 292 ) THEN  ;  isrow = 0   
     332            ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 39 
     333            ENDIF                                       
     334            ii0 = 297           ;   ii1 = 297 
     335            ij0 = 230 + isrow   ;   ij1 = 230 + isrow 
    310336            !                                        ! ======================= 
    311337         CASE DEFAULT                                !    ORCA R05 or R025 
Note: See TracChangeset for help on using the changeset viewer.