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 3779 – NEMO

Changeset 3779


Ignore:
Timestamp:
2013-02-08T11:52:03+01:00 (11 years ago)
Author:
cetlod
Message:

2013/dev_r3411_CNRS4_IOCRS/NEMOGCM : lines are toot long for gfortran...

Location:
branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_LIM_CRS/MY_SRC/iom.F90

    r3778 r3779  
    11041104       
    11051105      ! output file names (attribut: name) 
    1106       clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'ptrc_T', 'diad_T', 'scalar', 'gcrs_T', 'gcrs_U', 'gcrs_V', 'gcrs_W' /)       
     1106      clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'ptrc_T', 'diad_T', 'scalar', & 
     1107         &           'gcrs_T', 'gcrs_U', 'gcrs_V', 'gcrs_W' /)       
    11071108      DO jg = 1, SIZE(clsuff)                                                                  ! grid type 
    11081109         DO jh = 1, 12                                                                         ! 1, 2, 3, 4, 6, 12 hours 

  • branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90

    r3778 r3779  
    850850 
    851851                  DO jii = ijis, ijie 
    852                      p_cfield3d(ji,jj,jk) = p_cfield3d(ji,jj,jk) + ( p_pfield(jii,ijje,jk) * p_e1_e2(jii,ijje) * p_fse3(jii,ijje,jk) * p_pmask(jii,ijje,jk) )  
     852                     p_cfield3d(ji,jj,jk) = p_cfield3d(ji,jj,jk) & 
     853                       & + ( p_pfield(jii,ijje,jk) * p_e1_e2(jii,ijje) * p_fse3(jii,ijje,jk) * p_pmask(jii,ijje,jk) )  
    853854                  ENDDO 
    854855                  p_cfield3d(ji,jj,jk) = p_cfield3d(ji,jj,jk) * zsurfcrs(ji,jj,jk)  
    … …  
    857858 
    858859                  DO jjj = ijjs, ijje 
    859                      p_cfield3d(ji,jj,jk) = p_cfield3d(ji,jj,jk) + ( p_pfield(ijie,jjj,jk) * p_e1_e2(ijie,jjj) * p_fse3(ijie,jjj,jk) * p_pmask(ijie,jjj,jk) ) 
     860                     p_cfield3d(ji,jj,jk) = p_cfield3d(ji,jj,jk) & 
     861                       & + ( p_pfield(ijie,jjj,jk) * p_e1_e2(ijie,jjj) * p_fse3(ijie,jjj,jk) * p_pmask(ijie,jjj,jk) ) 
    860862                  ENDDO 
    861863                  p_cfield3d(ji,jj,jk) = p_cfield3d(ji,jj,jk) * zsurfcrs(ji,jj,jk) 
    … …  
    14161418                      DO jjj = ijjs, ijje 
    14171419                         zsurf_crs(ji,jj,jk) = zsurf_crs(ji,jj,jk) + ze1(ji,jj,jk) * ze2(jii,jjj,jk) 
    1418                          zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk-1)                
     1420                         zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) & 
     1421                            &     + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk-1)                
    14191422                      ENDDO 
    14201423                   ENDDO 
    … …  
    14291432                         DO jjj = ijjs, ijje 
    14301433                            zsurf_crs(ji,jj,jk) = zsurf_crs(ji,jj,jk) + ze1(ji,jj,jk) * ze2(jii,jjj,jk) 
    1431                             zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk-1)    
     1434                            zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) & 
     1435                               &    + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk-1)    
    14321436                         ENDDO 
    14331437                      ENDDO 
    … …  
    14481452                  DO jjj = ijjs, ijje 
    14491453                     zsurf_crs(ji,jj,jk) = zsurf_crs(ji,jj,jk) + ze1(ji,jj,jk) * ze2(jii,jjj,jk) 
    1450                      zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk)                
     1454                     zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) & 
     1455                       &     + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk)                
    14511456                  ENDDO   
    14521457               ENDDO 
    … …  
    14581463                     DO jjj = ijjs, ijje    
    14591464                        zsurf_crs(ji,jj,jk) = zsurf_crs(ji,jj,jk) + ze1(ji,jj,jk) * ze2(jii,jjj,jk) 
    1460                         zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk)    
     1465                        zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) & 
     1466                           &       + ( ze1(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk)    
    14611467                     ENDDO    
    14621468                  ENDDO 
    … …  
    14911497                      DO jjj = ijjs, ijje 
    14921498                         zsurf_crs(ji,jj,jk) = zsurf_crs(ji,jj,jk) + ze3(ji,jj,jk) * ze2(jii,jjj,jk) 
    1493                          zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) + ( ze3(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk) 
     1499                         zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) & 
     1500                            &  + ( ze3(ji,jj,jk) * ze2(jii,jjj,jk) ) * zpmask(jii,jjj,jk) 
    14941501                      ENDDO          
    14951502                   ENDDO 
    … …  
    15131520                     DO jjj = ijjs, ijje 
    15141521                        zsurf_crs(ji,jj,jk) = zsurf_crs(ji,jj,jk) + ze3(ji,jj,jk) * ze1(jii,jjj,jk)  
    1515                         zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) + ( ze3(ji,jj,jk) * ze1(jii,jjj,jk) ) * zpmask(jii,jjj,jk)    
     1522                        zsurf_msk_crs(ji,jj,jk) = zsurf_msk_crs(ji,jj,jk) & 
     1523                           &   + ( ze3(ji,jj,jk) * ze1(jii,jjj,jk) ) * zpmask(jii,jjj,jk)    
    15161524                     ENDDO 
    15171525                  ENDDO 

  • branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r3778 r3779  
    472472     !    3.d.3   Vertical depth (meters) 
    473473 
    474      CALL crsfun( p_e1e2t=e1e2t, cd_type='T', cd_op='MAX', p_cmask=tmask_crs, p_ptmask=tmask, p_pfield3d_1=gdept, p_cfield3d=gdept_crs ) 
    475      CALL crsfun( p_e1e2t=e1e2t, cd_type='W', cd_op='MAX', p_cmask=tmask_crs, p_ptmask=tmask, p_pfield3d_1=gdepw, p_cfield3d=gdepw_crs ) 
     474     CALL crsfun( p_e1e2t=e1e2t, cd_type='T', cd_op='MAX', p_cmask=tmask_crs, p_ptmask=tmask, & 
     475          &       p_pfield3d_1=gdept, p_cfield3d=gdept_crs ) 
     476     CALL crsfun( p_e1e2t=e1e2t, cd_type='W', cd_op='MAX', p_cmask=tmask_crs, p_ptmask=tmask, & 
     477          &       p_pfield3d_1=gdepw, p_cfield3d=gdepw_crs ) 
    476478 
    477479     !    3.d.4   Surfaces  
Note: See TracChangeset for help on using the changeset viewer.