* ===>>> : Open output file cplout    
  ------   ----------------                                                     

  
                 ANOTHER FANTASTIC RUN OF THE SUPER 
                   Ocean Atmosphere Sea Ice Soil 
                   ----------------------------- 
                A fractal, random and poetic software 
                 for surrealistic simulations of the 
                            EARTH CLIMATE 
                            ************* 
  
  
            PROGRAM couple  -  Level 0
            **************     *******
  
  Open main input-output files and launch the simulation
  
* ===>>> : Open output file cplout connected to unit                  6
  ------   -----------------------------------------                            

* ===>>> : Open input configuration file namcouple    
  ------   -----------------------------                                        

  
  
            ROUTINE inipar_alloc  -  Level 0
            *********************    *******
  
  Initialization of main run             parameters
  
  Reading input file namcouple
  
  
* ===>>> : The number of models for this run is nmodel =                  0
  ------   ---------------------------------------------                        

* ===>>> :  The message passing used in OASIS is cchan = NONE
  ------   ---------------------------------------------                        

* ===>>> : The number of exchanged fields is nfield =                  1
  ------   ------------------------------------------                           

         ***WARNING***
  No ig_clim_maxport in namcouple
  
* ===>>> : The used value of ig_clim_maxport is =                  2
  ------   --------------------------------------                               

 lncdfrst =  T
 Max number of underlying neighbors for SURFMESH :             1
  
 Max number of neighbors for GAUSSIAN interp :             1
  
 Maximum number of underlying neighbors for MOZAIC interp:             1
  
 Maximum number of overlaying neighbors for SUBGRID interp :            1
  
 Maximum number of different SURFMESH interpolations :             1
  
 Maximum number of different GAUSSIAN interpolations :             1
  
 Maximum number of different MOZAIC interpolations :             1
  
 Maximum number of different SUBGRID interpolations :             1
  
 Maximum number of different NINENN extrapolations :             1
  
 Maximum number of neighbors for extrapolation :             1
  
  
           ---------- End of routine inipar_alloc ---------
  
  
            ROUTINE inipar  -  Level 0
            **************     *******
  
  Initialization of run parameters
  
  Reading input file namcouple
  
  
 inipar: Reading CF name table!
* ===>>> : The experiment name for this run is cjobnam =  INT
  ------   ---------------------------------------------                        

* ===>>> : The total time for this run is ntime =                 10
  ------   --------------------------------------                               

* ===>>> : The initial date for this run is ndate =               10101
  ------   -----------------------------------------                            

* ===>>> : The number of sequential fields is nmseq =                  1
  ------   ------------------------------------------                           

* ===>>> : The information mode is activated ? ==> NOT
  ------   ---------------------------------------                              

* ===>>> : The printing level is nlogprt =                  2
  ------   -------------------------------                                      

* ===>>> : The calendar type is ncaltype =                  1
  ------   -------------------------------                                      

* ===>>> : Gregorian calendar  
  ------   ------------------                                                   


     No lag in namcouple for the field  1
      Default value LAG=0 will be used 


                 FIELD NUMBER   1
                 ************  

            Field parameters 
            ****************  


            Input field symbolic name       = fieldin 
            Output field symbolic name      = fieldout
            Field long name                 = 
                  surface_albedo                                       
            Field exchange frequency        =        1
            Model sequential index          =  1
            Field I/O status                = EXPORTED
            Number of basic operations      =    1


            Restart file name               = fldin.nc


            Source grid periodicity type is      = P       
            Number of overlapped grid points is  =  0
            Target grid periodicity type is      = P       
            Number of overlapped grid points is  =  0


            Source longitude file string    = bt42.lon
            Source latitude file string     = bt42.lat
            Source mask file string         = bt42.msk
            Source surface file string      = bt42.srf
            Target longitude file string    = at42.lon
            Target latitude file string     = at42.lat
            Target mask file string         = at42.msk
            Target surface file string      = at42.srf


            ANALYSIS PARAMETERS 
            ******************* 


       ANALYSIS number  1 is SCRIPR  
       ***************  

      Remapping method is               = BILINEAR
      Field type is                     = SCALAR  
      Normalization option is           = NONORM  
      Seach restriction type is         = REDUCED 
      Number of search bins is          =    1
  
           ---------- End of routine inipar ---------
  
  
            ROUTINE inilun  -  Level 0
            **************     *******
  
  Set up logical unit numbers
  
 nulin =  4 nulou =  6 nulgr = 11 nulma = 12 nulsu = 13 nultr =  7 nulcc = 16 nulgg = 17 nulgn = 18 nulan =  8 nulrd = 14 nudum =  9

  
           --------- End of routine inilun ---------
  
  
            ROUTINE initim  -  Level 0
            **************     *******
  
  Determine time iteration parameters 
  and initialize simulation date 
  
  
       Run initial date :  1 -  1 -    1
       ================ 
  
       Number of iterations =            10
      ====================   
  
       Value of timestep =             1
      =================   
  
  
           --------- End of routine initim ---------
  
  
            ROUTINE inicmc  -  Level C
            **************     *******
  
  Process stuff initialization
  
  
  
  
            ROUTINE chksgc  -  Level C
            **************     *******
  
  Initialize signal handling 
  
  
  CLIM or exotic cases ===>>> No signal handling
  
           --------- End of routine chksgc ---------
  NOTE : No message passing used in this run
  ======= 
 Maximum size of the different grids of indirect fields:         8192
  
 Sum of grid sizes of fields before interpolation :          6232
  
 Sum of grid sizes of fields after interpolation :          8192
  
  
           --------- End of routine inicmc ---------
  
  
            ROUTINE inidya  -  Level 0
            **************     *******
  
  Set up memory dynamic allocation
  
  
      Memory (kB) requested for source field and grid arrays       224
      Memory (kB) requested for target field and grid arrays       294
  
           --------- End of routine inidya ---------
  
  
            ROUTINE iniiof  -  Level 0
            **************     *******
  
  opening grid related files
  
  opening gcms grid file 
  
    opening gcm masks file 
  
 Trying open gcm surface file
  
  
  opening restart/transfer files 
  
    opened netcdf restart file fldin.nc
  
  open interpolation related files 
  
       need file with surface mesh weights
  
           open unit =  16    file mweights ok
  
       need file with curvilinear grid weights
  
           open unit =  17    file gweights ok
  
       open ANAIS output file
  
           open unit =   8    file anaisout ok
  
 need file with weights, address and iteration number
  
           open unit =  18    file nweights ok
  
  
  open analysis related files 
  
  
           ---------- End of routine iniiof ---------
  
  
            ROUTINE chkpar  -  Level 0
            **************     *******
  
  control of run time options
  
  
  
  
           ---------- End of routine chkpar --------
  
  
            ROUTINE inigrd  -  Level 0
            **************     *******
  
  get gcms grids, masks and surfaces
  
  

  ------   ---------------------------------------------                        
* ===>>> : Start reading source grid data for field nbr=                  1
  ------   ---------------------------------------------                        

* ===>>> : Read source grid longitudes for field #                  1
  ------   ---------------------------------------                              

* ===>>> : Read source grid latitudes for field #                   1
  ------   ---------------------------------------                              

* ===>>> : Read source grid mask for field number =                  1
  ------   ----------------------------------------                             

* ===>>> : Read source grid surface for field number                   1
  ------   ------------------------------------------                           


  ------   ----------------------------------------------                       
* ===>>> : Start reading target grid data for field nbr =                  1
  ------   ----------------------------------------------                       

* ===>>> : Read target grid longitudes for field number =                  1
  ------   ----------------------------------------------                       

* ===>>> : Read target grid latitudes for field number =                  1
  ------   ---------------------------------------------                        

* ===>>> : Read target grid mask for field number =                  1
  ------   ----------------------------------------                             

* ===>>> : Read target grid surface for field number                   1
  ------   ------------------------------------------                           

  
           --------- End of routine inigrd ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  
 lmodinf=  F

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
   Entering  ROUTINE closerst  -  Level C
            **************     *******
 Closed netcdf file with id =            8
  
           --------- End of routine closerst ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE updtim  -  Level 1
            **************     *******
  
  Increment model date since run start 
  
  
  
  
            ROUTINE calend  -  Level 1
            **************     *******
  
  Updates calendar values
  
  
  
           --------- End of routine calend ---------
  
                ****************** 
                * Model run date * 
                * -------------- * 
                ****************** 
  
             Year  --->>>             1
            Month  --->>>             1
              Day  --->>>             1
             Hour  --->>>             0
  
  
           --------- End of routine updtim ---------
  
  
            ROUTINE getfld  -  Level 1
            **************     *******
  
  Get coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Reading of field :  fieldin 
  ------   -------------------                                                  


  ------   ------------------                                                   
* ===>>> : Field long name :  surface_albedo                                       
  ------   ------------------                                                   

  
           --------- End of routine getfld ---------
  
  
            ROUTINE preproc  -  Level 1
            ***************     *******
  
  Preprocessing of coupling fields
  
  

  ------   --------------------                                                 
* ===>>> : Treatment of field : fieldin 
  ------   --------------------                                                 

  
           --------- End of routine preproc ---------
  
  
            ROUTINE interp  -  Level 1
            **************     *******
  
  Monitor field interpolation
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldin 
  ------   ---------------------                                                

  
  
            ROUTINE scriprmp  -  Level ?
            ****************     *******
  
  SCRIP remapping
  
  SCRIP filename : 
 rmp_bt42_to_at42_BILINEA.nc                                                     
  
  SCRIP file opened - no matrix calculation needed
  
  
           --------- End of routine scriprmp ---------
  
           --------- End of routine interp ---------
  
  
             ROUTINE cookart  -  Level 1
             ***************     *******
  
  Subgrid variability, blas and flux conservation 
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine cookart ---------
  
  
            ROUTINE postpro  -  Level 1
            ***************     *******
  
  Postprocessing of coupling fields
  
  

  ------   ---------------------                                                
* ===>>> : Treatment of field :  fieldout
  ------   ---------------------                                                

  
           --------- End of routine postpro ---------
  
  
            ROUTINE givfld  -  Level 1
            **************     *******
  
  Give coupling fields
  
  

  ------   -------------------                                                  
* ===>>> : Writing of field :  fieldout
  ------   -------------------                                                  


  ------   -------------------                                                  
* ===>>> : Field definition :  surface_albedo                                       
  ------   -------------------                                                  

  
           --------- End of routine givfld ---------
  
  
            ROUTINE reset  -  Level 1
            *************     *******
  
  reinitialize field macro arrays
  
  
  
           --------- End of routine reset ---------
  
  
            ROUTINE waitpc  -  Level C
            **************     *******
  
  Wait until gcm completion 
  Exit if interpolator only 
  
  
           --------- End of routine waitpc ---------
 End of Oasis
