Changeset 2006


Ignore:
Timestamp:
2010-07-09T17:07:57+02:00 (10 years ago)
Author:
acc
Message:

ticket #684 step 9a: Code fixes to achieve first successful compilation of mid-year merge code

Location:
branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/DOM/dom_oce.F90

    r2004 r2006  
    213213 
    214214   !!---------------------------------------------------------------------- 
     215   !! mpp reproducibility 
     216   !!---------------------------------------------------------------------- 
     217#if defined key_mpp_rep1 || defined key_mpp_re2 
     218   LOGICAL, PUBLIC, PARAMETER ::   lk_mpp_rep = .TRUE.    !: agrif flag 
     219#else 
     220   LOGICAL, PUBLIC, PARAMETER ::   lk_mpp_rep = .FALSE.   !: agrif flag 
     221#endif 
     222   !!---------------------------------------------------------------------- 
    215223   !! agrif domain 
    216224   !!---------------------------------------------------------------------- 
     
    230238#endif 
    231239 
    232    !!---------------------------------------------------------------------- 
    233    !! mpp reproducibility 
    234    !!---------------------------------------------------------------------- 
    235 #if defined key_mpp_rep1 || defined key_mpp_re2 
    236    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp_rep = .TRUE.    !: agrif flag 
    237 #else 
    238    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp_rep = .FALSE.   !: agrif flag 
    239 #endif 
    240240   !!====================================================================== 
    241241END MODULE dom_oce 
  • branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r2000 r2006  
    8484      !! 
    8585      INTEGER  ::   ji, jj   ! dummy loop indices 
    86       INTEGER  ::   ierror   ! temporary integer 
    8786      !!---------------------------------------------------------------------- 
    8887      !                                    
     
    115114 
    116115         IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN 
    117             rnf(:,:)  = rn_rfact * ( sf_rnf(1)%fnow(:,:) )   
     116            rnf(:,:)  = rn_rfact * ( sf_rnf(1)%fnow(:,:,1) )   
    118117            IF ( ln_rnf_att ) THEN   
    119                rnf_sal(:,:) = ( sf_sal_rnf(1)%fnow(:,:) )   
    120                rnf_tmp(:,:) = ( sf_tmp_rnf(1)%fnow(:,:) )   
     118               rnf_sal(:,:) = ( sf_sal_rnf(1)%fnow(:,:,1) )   
     119               rnf_tmp(:,:) = ( sf_tmp_rnf(1)%fnow(:,:,1) )   
    121120            ELSE   
    122121               rnf_sal(:,:) = 0   
     
    141140      !! ** Action  : - read parameters 
    142141      !!---------------------------------------------------------------------- 
     142      INTEGER  ::   ierror   ! temporary integer 
    143143      CHARACTER(len=32) ::   rn_dep_file   ! runoff file name   
    144144      !!  
     
    195195            CALL ctl_stop( 'sbc_rnf: unable to allocate sf_rnf structure' )   ;   RETURN 
    196196         ENDIF 
    197          ALLOCATE( sf_rnf(1)%fnow(jpi,jpj) ) 
    198          ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,2) ) 
     197         ALLOCATE( sf_rnf(1)%fnow(jpi,jpj,1) ) 
     198         ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) ) 
    199199 
    200200         IF( ln_rnf_att ) THEN 
     
    203203               CALL ctl_stop( 'sbc_sal_rnf: unable to allocate sf_sal_rnf structure' )   ;   RETURN 
    204204            ENDIF 
    205             ALLOCATE( sf_sal_rnf(1)%fnow(jpi,jpj) ) 
    206             ALLOCATE( sf_sal_rnf(1)%fdta(jpi,jpj,2) ) 
     205            ALLOCATE( sf_sal_rnf(1)%fnow(jpi,jpj,1) ) 
     206            ALLOCATE( sf_sal_rnf(1)%fdta(jpi,jpj,1,2) ) 
    207207 
    208208            ALLOCATE( sf_tmp_rnf(1), STAT=ierror ) 
     
    210210                CALL ctl_stop( 'sbc_tmp_rnf: unable to allocate sf_tmp_rnf structure' )   ;   RETURN 
    211211            ENDIF 
    212             ALLOCATE( sf_tmp_rnf(1)%fnow(jpi,jpj) ) 
    213             ALLOCATE( sf_tmp_rnf(1)%fdta(jpi,jpj,2) ) 
     212            ALLOCATE( sf_tmp_rnf(1)%fnow(jpi,jpj,1) ) 
     213            ALLOCATE( sf_tmp_rnf(1)%fdta(jpi,jpj,1,2) ) 
    214214         ENDIF 
    215215         ! fill sf_rnf with sn_rnf and control print 
Note: See TracChangeset for help on using the changeset viewer.