New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7435 – NEMO

Changeset 7435


Ignore:
Timestamp:
2016-12-02T11:53:26+01:00 (6 years ago)
Author:
timgraham
Message:

#1811 Rplace jp_cfg with nn_cfg and jpjdta with jpjglo

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90

    r7434 r7435  
    410410      tsn(:,:,:,jp_sal) = 35._wp 
    411411      tsb(:,:,:,jp_sal) = 35._wp 
    412       SELECT CASE ( jp_cfg )  
     412      SELECT CASE ( nn_cfg )  
    413413         !                                        ! ==================== 
    414414         CASE ( 1 )                               ! WAD 1 configuration 
     
    420420            ! 
    421421            do ji = 1,jpi 
    422              sshn(ji,:) = ( -5.5_wp + 5.5_wp*FLOAT(mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     422             sshn(ji,:) = ( -5.5_wp + 5.5_wp*FLOAT(mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    423423            end do 
    424424            !                                     ! ==================== 
     
    431431            ! 
    432432            do ji = 1,jpi 
    433              sshn(ji,:) = ( -5.5_wp + 3.9_wp*FLOAT(jpidta - mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     433             sshn(ji,:) = ( -5.5_wp + 3.9_wp*FLOAT(jpiglo - mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    434434            end do 
    435435            !                                     ! ==================== 
     
    442442            ! 
    443443            do ji = 1,jpi 
    444              sshn(ji,:) = ( -7.5_wp + 6.9_wp*FLOAT(jpidta - mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     444             sshn(ji,:) = ( -7.5_wp + 6.9_wp*FLOAT(jpiglo - mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    445445            end do 
    446446 
     
    473473            ! Needed rn_wdmin2 increased to 0.01 for this case? 
    474474            do ji = 1,jpi 
    475              sshn(ji,:) = ( -5.5_wp + 9.0_wp*FLOAT(mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     475             sshn(ji,:) = ( -5.5_wp + 9.0_wp*FLOAT(mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    476476            end do 
    477477 
     
    487487            do ji = 1,jpi 
    488488             !6a 
    489              sshn(ji,:) = ( -5.5_wp + 9.0_wp*FLOAT(jpidta - mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     489             sshn(ji,:) = ( -5.5_wp + 9.0_wp*FLOAT(jpiglo - mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    490490             !Some variations in initial slope that have been tested 
    491491             !6b 
    492              !sshn(ji,:) = ( -5.5_wp + 6.5_wp*FLOAT(jpidta - mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     492             !sshn(ji,:) = ( -5.5_wp + 6.5_wp*FLOAT(jpiglo - mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    493493             !6c 
    494              !sshn(ji,:) = ( -5.5_wp + 7.5_wp*FLOAT(jpidta - mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     494             !sshn(ji,:) = ( -5.5_wp + 7.5_wp*FLOAT(jpiglo - mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    495495             !6d 
    496              !sshn(ji,:) = ( -4.5_wp + 8.0_wp*FLOAT(jpidta - mig(ji))/FLOAT(jpidta-1))*tmask(ji,:,1) 
     496             !sshn(ji,:) = ( -4.5_wp + 8.0_wp*FLOAT(jpiglo - mig(ji))/FLOAT(jpiglo-1))*tmask(ji,:,1) 
    497497            end do 
    498498 
Note: See TracChangeset for help on using the changeset viewer.